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ABSTRACT 


This thesis presents extensions to an implementation of 
a kernel ina real-time distributed operating system for a 
microcomputer based multi-processor system. 

ie = operating System, MEOR TEX , VS a 2 level, 
hierarchically structured, loop free, system that permits 


& 


meegteal distribution of the kernel in the address Space oi 


each process. The deSign 1s based on segmented address 
meaees and per process stacks. Process synchronization is 
achieved through sequencers and eventcounts. MCORTEX is 


resident in the local memory of each microcomputer but 
system data is maintained in shared global memory. 

MCORTEX has been extended to include a system monitor 
process which allows stopping the system to examine any 
memory, shared or local, from any location. The system can 
then be restarted without reinitializing each microcomputer. 

ism ovacem particularly supports applications where 
jobs are partitioned into a eset of multiple interacting 
asynchronous processes. The system is currently implemented 


on INTEL 86/12A single-board computers. 
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fee GENERAL DISCUSSION 

This thesis presents extensions to an implementation of 
a kernel ina real-time distributed operating system for a 
microcomputer based multi-processor system, called MCORTEX. 

As the performance and capabilities of micro-computers 
continues to improve, it is becoming apparent that many 
large real-time applications that are managed by large fast 
mini-computers could be managed by an integrated multi- 
processor system of less expensive, commercially-available 
mecro=-computers. What a single general purpose micro- 
computer might lack in speed could be compensated for by a 
system of computers if it 1s managed by an operating system 
that allows process synchronization and parallel OG 
Pencurrent processing. 

There are multi-emicrocomputer systems already in use 
today in real-time applications. However, in order to 
accommodate high data input rates and the addition of more 
Mmeeessors to the system, custom interconnections often have 
CO be devised so that system performance is not degraded. 
These custom designs may increase the cost of the system and 
meauce flexibility in meeting the needs of a variety ‘of 


applications. 





iwemolummese Ol enis thesis 18 Co continue development of 
an operating system design that is simple, small, and 
flexible. <A principal goal is to demonstrate the operating 
system on commercially available, relatively inexpensive 
general purpose micro-computers requiring the minimum of 
custom-developed hardware for processor inter-communication 
and control. It is anticipated that the design will be 
general in nature in order to be applied towards various 
real-time applications and implemented on different micro- 
computer systems with the minimum of modification. The 
Meeciiic goals of this thesis are discussed in the next 


@eeelon concerning the background of the project. 


B. BACKGROUND 

The AEGIS weapons system simulation project currently 
being conducted at the Naval Postgraduate School is 
attempting to determine the feasibility of raplacing much of 
the larger and relatively expensive mainframe computer, the 
AN/UYK=-7, with a system of 16 or 32 bit micro computers. 
several significant real-time functions of the AEGIS Weapons 
System are to be duplicated with associated data, inputs, 
timing, and supporting functions so that a test example can 
be examined whose performance emulates that of the actual 
=ysvem. 

Poeoarticular, emiulation of the SPY=-1A radar, which is a 


Sub-system of AEGIS, is being examined. Signal processing 


bo 





for long distance low altitude missile detection and target 
Meqguisition for tactical missiles requires procesSing large 
amounts of collected data in real-time. It is proposed that 
a system of micro-computers as described above could provide 
the processing power required Co perform COMeun@e me 
asynchronous computations. 

Design of the operating system that would manage such 
micro-computer system was started by Wasson who defined the 
detailed design of an operating system tailored to real-time 
image processing[Ref. 10]. He based his design on a more 
general model developed by O'Connel and Richardson of the 
Naval Postgraduate School in 1979. The design was to be 
eigetied to the general purpose INTEL iSBC 86/12A micro- 
computer. This single board micro-computer is based on the 
16 bit INTEL 8086 microprocessor. Wasson's design used the 
MULTICS concepts of segmentation and per process stacks and 
Reed and Kanodia's enventcount synchronization methods.[Ref. 
9: pp.1l2-13] Rapantzikos began the implementation of 
Wasson's design[{Ref. 11]. 

The operating system, MCORTEX, at this point used the 
meycept of a "two level traffic controller’ to accomplish 
Processor multiplexing among a greater number of eligible 
processes. This dual-level "processor multiplexing design" 
allowed the system to treat the two primary scheduling 


ee1sions, viz., the scheduling of processes and the 





management of processors, at two separate levels of 
aipstraction. 

Cox continued the implementation effort of Rapantzikos 
by greatly simplifying the design of MCORTEX. He placed a 
higher priority on shortening the execution time in MCORTEX 
Myer the possible added security of a two level traffic 
@oenmeroller and therefore, reduced the traffic controller to 
one level of abstraction which Simplified the 
implementation. TiomOcwe@ em COMURIbDUcION was to add a 
gatekeeper module to the top of the operating system so that 
operating system calls were made through a single "gate" and 
SO that the user would not have to concern himself with 
service codes. The result was a very compact, trimmed down, 
basic operating system which supports multiprocessors 
performing multiprocessing. Petes DD. 13=14] Cox 
demonstrated MCORTEX with a system of three user processes 
executing concurrently on two PE le i1SBC86/12A 
meerocomputers connected by the INTEL MULTIBUS. 

The specific goals of this thesis are to: 

1. Test the generality of MCORTEX by expanding the 
System to several additional micro-computers. 

2. Expand the system to the extent necessary to 
provide a means of dynamically interacting with the 
Meerating system while it is executing so that efficient 
testing of the multiprocessor system can be accomplished. 


meevtOuSsly, MCORTEX had to be allowed to "run its course" 


Is 





before examining various structures in system memory. It 
then had to be completely reloaded and reinitialized to 


resume execution. 


Memes CRUCTURE OF THE THESIS 

Chapter I presents a general discussion of the larger, 
mmeoing effort of which this thesis is a part. It also 
gives a general discussion of the background work that has 
been accomplished regarding the specific topic of this 
thesis, the MCORTEX operating system. 

Chapter II addresses the overall design philosohpy of 
MCORTEX and its functional requirements. Multiple process 
communication and synchronization tasks and techniques” are 
included. There is also a amscussilon or eroecess 
Mmepcoiplexing and other utilities support for the user. 
Gemeyer, the discussion is limited, inasmuch as tnree prior 
theses have devoted their attention to the general design. 

Chapter III describes the hardware architecture of the 
system on which MCORTEX is demonstrated and why this 
Particular micro-computer was chosen. 

As the iSBC 86/12A is a developmental system, the first 
meer Of Chapter IV outlines the INTEL corporation support 
systems that make the use of the iSBC 86/12A possible. 
Chapter IV then addresses the detailed design of MCORTEX. 


Testing of the previous version, explanations for the path 


14 





chosen to implement enhancements, problems encountered, and 
their implications are discussed. 

Chapter V summarizes the testing of the operating system 
and describes the new capabilities available to the uSer. 


Suggestions are also given for future research and testing. 





Pie orole DESIGN CONCEPTS 


fee PROCESS STRUCTURE 

Dretaineg. a job Mee asynenronous parts and concurrently 
executing these parts as Separate entities offers 
Mmenificant advantages if the job 1S continuously receiving 
mous and/or processing data. In a single processor the 
benefits are mainly confined to design simplicity. However, 
in a multi-processor system these asynchronous parts, or 
processes, are essential if the system is to take advantage 
Ot parallel and pipeline procesSing. 

There are two elements that, together, are sufficient to 
characterize a process; (1) the process address space and 
My) its execution point. 

The address space is the set of memory locations that 
could be accessed during process execution. There exists a 
possible path to all the memory locations in that space 
during the life of the process. te LS Ghis important 
Sm@aracteristic that allows the "distributed" operating 
system to be viewed as part of tne address space of the 
process. The entire address space can be viewed as having 
two domains of execution, the user domain and the kernel 
domain. Entry to the kernel domain of execution is 


additionally restricted to a single entry point. 


16 





This enhances design and ensures a certain measure of 


security. see Fig. 1. 


Available Address Space 


\ .\ 
Process Address ¥ser Domain 


— \ te 
\ OO 


Kernel 


Kernel Domain 
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Execution 





mG. | Address Space 


mae execution point is characterized by the state of the 
Machine at any particular time and consists of the contents 
Of certain machine registers. 

By designing a system as a collection of cooperating 
processes, system complexity can be greatly reduced. The 
asynenronous nature of the system can be structured 
logically by representing each independent sequential task 
seme process and by providing interprocess synchronization 
and communication mechanisms to prevent race and deadlock 


Situations during process interactions. 





If the processes are confined to well-defined address 
Spaces that do not overlap then they would never interfere 
meee each other. Some controlled form of overlapping of 
address spaces or sharing must exist if there is to be, as a 


Minimum, coordination between the processes. 


Pee VIRTUAL PROCESSORS AND SCHEDULING 

peeyirtuial processor iS an abstraction. Eta LbSosaeedatva 
Structure that contains all the required data that describes 
the execution point of a process at any given instant. 
There is a virtual processor for every process but only one 
Meal processor. Each real processor has up to a fixed 
number of virtual processors and each virtual processor has 
meme aifinity” for a particular real processor. This will be 
explained later in terms of the Virtual Processor Map. 

me Virtual processor also has use of the process stack 
Mereen contains the procedure activation records and other 
necessary data for the execution of the process. in 
Semialitcty the data structure tnat represents the virtual 


Mmeecssor contains a pointer to this stack. Other data that 


represents the virtual processor are "priority" of the 
Meecess it 1S executing, current state of the virtual 
Processor, and any "event" the virtual processor might be 


Meacing for. 
As all virtual processors have the same components, the 


Meee Structures that represent the virtual processors form 





an array or structure called the virtual processor map 
mvePM) . The VPM is used by the scheduler to select the 
proper eligible process to be executed. Atter Selection, 
virtual processor's stack is used to restore the real 


Meecessor to the state when it was last executing that 


process. This selected virtual processor is now "running" 
Pemopposed to "waiting" or being "ready" to run. The real 
processor, which is a physical object, is always running. 


In this case the real processor is the INTEL 8086. 

fieis the adstraction of the real processor that allows 
multiplexing of several processes on a Single processor 
resource. The high level system calls of the operating 
system operate on these virtual processors thus making the 
design independent of the configuration of the hardware. 
Adding real processors to the system, up to the bandwidth of 
the system bus, would not affect the user except that he is 
likely to obtain increased performance. 

User services available via procedure calls through the 


Bate can be regarded as an extended instruction set which is 


Meets ablie to the virtual processor but not the real 
processors. Rapantzikos uses, aS an example, the "Await" 
Operation. It does not use real processor resources but it 


does inhibit the use of the real processor by the virtual 


Emecessor. [Ref. 11: pp.43-44] 
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mee MULTIPLEXING 

Multiplexing could also be called multiprogramming and 
meme is facilitated by the abstraction of the real processor 
described in the previous section. The execution by the 
virtual processor of a sequence of operations is actually 
performed by the real processor. However, the sequential 
operations may be separated by gaps of time when other 
virtual processors are executing a sequence of operations. 
This allows Gate Lent Semon scarce: real processor 
resources. Figure 2 shows how several virtual processors 
could be mapped into the operation sequence of one real 
processor. When each virtual processor is executing on the 
Mmm processor it Said to be "bound" to the real procesSor. 
The length of each horizontal line represents the amount of 
meme that virtual processor is bound to the real processor. 
aeey One virtual processor can be running at any point in 
came . However, any number of virtual processors can be 
ready-to-be-scheduled or waiting for some other event. 
meeure 3 shows the possible state transitions of a virtual 
processor. 

mor a portion of the time that a virtual processor is 
executing, it could be in the kernel domain of execution. 
This implementation uses a distributed kernel which is 
interruptable and loop free. Tiisieme ge Virtual processor 
Pemepe interrupted at almost any point in time and continue 


On the next time it is scheduled. It should be noted that 
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ieop free indicates a condition in which a module which uses 
Sart Of a Second module cannot in turn be used or called by 


that second module. 


VIRTUAL PROCESSOR 
= mM W 


iq. 2 Multiplexina 


RUNNING WAITING 





Fig.3 Virtual Processor State Transitions 


Therefore, multiplexing is the means by which a system 
momen has more processes than it has processors, ocean 
efficiently schedule those processes and make effective use 


of the real processor's time. It also makes the design and 


a 





implementation of the operating system easier to understand 


and document. 


Pee MULTIPROCESSING 

In a multi-processor environment, concurrent processing 
Mmemea Natural byproduct. The process structure previously 
revealed is used to divide a job into separate sequential 
tasks that can now be scheduled to run concurrently. 
Although the response time for a job might not decrease, 
the throughput would increase. Therefore, significant gains 
in efficiency can be made. 

When multiplexing and multiprocessing are combined, a 
system iS obtained with a significant throughput advantage 
that can react efficiently to asynchronous’ events. nis 
implementation uses a Single, system-wide, preemptive 
interrupt mechanism to signal the need for rescheduling in 
moe multi-procesSing environment. Furthermore, the above 
requirements reinforce the choice of the iSBC86/12A to 
implement MCORTEX. Commercially-available, general-purpose 
hardware is available to interconnect the iSBC86/12A micro- 
computers. 

It should be noted that in the interest of keeping 
MCORTEX small and fast, virtual processors being scheduled 
on one real processor will never be scheduled on another. 
This is a result of Cox's work in symplifying the design of 


MeentEX. Virtual processors have an “affinity” for the real 
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processor on which they were originally loaded. I1t must be 
remembered that MCORTEX is for a real-time multi-processor 
environment and scheduling decisions must take the minimum 
time possible. The memory management functions that would 
be required otherwise would degrade the performance of the 


real-time environment. 


E. COMMUNICATION AND SYNCHRONIZATION 

Bor concurrent processing, a job that is composed of 
sequential and non-sequential tasks is explicitly divided 
mmeo an appropriate Structure of processes that can run 
Pencurrently. Inter-process communication and 
BemecnroOnization are necessary for concurrent processing. 

meets tne responsibility of the operating system to 
provide mechanisms for effective communication between 
cooperating processes. There are two kinds of 
communications that processes must be able to achieve. 
There must exist a way for processes to exchange data. This 
is called inter-process communication. There must also exist 
a method for processes to order their execution in response 
Memecertain events, particularly events affecting the shared 
memory status and validity. Therefore, to utilize the 
parallelism and pipelining afforded by multiple processors, 
a mechanism is required ior SVmewrEontZati10n between 
processes. Rapantzikos [{Ref. 11] made the decision to use 


the eventcounts and sequencers of Reed and Kanodia [Ref. 9]. 


ee 





aS provides aucomaviec ‘Oreadeas ving” ands SUPPOrts 
"Darallel Signaling”. Another reason eventcounts |§ and 
sequencers were chosen is because in addition to providing 
memenronization, a history of the jobs execution is 
maintained. 


The synchronization between processes 1S supported by 


meee 'AWait'’, “Advance”, and "Preempt" functions. Except for 
"Preempt", these functions operate on the eventcounts. the 
miieket" DO ene alveyel operates on sequencers. Cox 


[Ref. 12:p.26] mentions that the "Ticket" function applied 
to sequencers supports the exclusive access of a process to 
a shared resource. [It is also uSed to provide odered access 
to the eeence on a first come, first served basis. 

The number of times an "event" has eccurred is 


represented by an eventcount. ‘Await blocks the CUPP On v isy 


running process until a threshold value has been reached for 


meeoarolicular eventcount. “Advance" increments the current 
Value for a particular eventcount. Thus, "Await" and 
"Advance" can be used to provide cooperation between 
processes. 


memcempe forces the scheduling of a high priority 
Meeecess Chat will then block itself. This is sometimes 
required for very critical asynchronous processes. However, 
Ieee nere still exists higher priority processes that are 


meaay, they will be scheduled first. 
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’Preempt” is used sparingly and only for the very highest 
c 





riority processes normally. 





Pewee nOCeooonenancnl TECEURE 


The micro-computer selected to initially implement 
MeontEX is the INTEL iSBC86/12A single board computer (SBC). 
ies based on the INTEL 8086 16 bit micro-processor. 
Detailed descriptions of all the components of the SBC and 
the multiprocessor interface, the MULTIBUS, can be found in 


[Ref. 1] and [Ref. 2]. 


A. HARDWARE REQUIREMENTS 
1. Shared Global Memory 

Shared global memory is required in this 
implementation as the means for virtual processors’ to 
coordinate their communication with each other. The 
Operating system is resident in the local memory of each 
real processor where it is a distributed part of the address 
See@ee Of each process associated with that processor. 
However, data concerning all the virtual processors in the 
multi-processor system exists as one copy in shared global 
memory. One of the reasons for Keeping ali virtual 
processor data in one structure in global memory is the way 
Mmewetotal structure is operated on by various MCORTEX 
Pyrenronization system calls. Those functions as well as 
the global data base structure will be detailed in Chapter 


Mmemesection C. 
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Zoe oVMenrOnmlzaclOon Support 
To prevent concurrency problems in the shared global 
memory, a software lock is used for access to the shared 
data base. However, the lock itself has to be protected 
from deadlock and race Sond tious.. Therefore, an 
indivisible "test and set" mechanism is required. PL/M-86 


aoe 6ASM86 both support this protection device. In PL/M-86, 


the mechanism Ss the built-in procedure "Lockset" 
[Ref. 8:pp.12=-14 to 12-15]. In ASM86 support comes in the 
memm of an instruction prefix "lock" [Ref. 5:p.5=-94]. The 


mmoex" prefix, which is also used in the function "Lockset", 
causes the system bus, the MULTIBUS, to be locked during the 
meteadcion of the following insStruction. This prevents the 
meeerieaving of instructions and/or access by another 
processor. Therefore, only one processor can access and 
change the global lock variable at any one time if the above 
eumoport feature 1S utilized. By necesSary convention, it is 
the responsibility of the processor who last had access. to 
mee 1OCK variable to unlock it. Processors are then asSured 
of mutual exclusion while updating the shared data base. It 
meme worth reiterating that the system bus is locked only 
during the testing and setting of the software lock and not 
during the software restricted access to the shared data 
base. Normal use of the system bus continues while one real 
Processor is accessing that part of shared memory protected 


by the software lock. 
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pee inver=-processor Communications 

Some method of communication between real processors 
is required if the processes they are executing are going to 
be synchronized. In the asynchronous real-time environment, 
the communication will invariably come in the form of an 
interrupt mechanism. The iSBC86/12A supports many different 
interrupt schemes. This implementation requires a single 
Seeovem interrupt that any real processor can use to 
"broadcast" an event. Every other real processor has to be 
able to recognize it and react to it. This preemptive 
maperrupt Signals to the other processors that a possible 
Mmeocneduling of a virtual processor iS necessary. The 
meecific interrupt structure in hardware is detailed in 
mais Chapter in Section OD. The software mechanism that 
Meeiges which procesSor should react to the broadcast 


Mmieerrupt Signal 1s detailed in Chapter IV, Section E. 


B. HARDWARE CONFIGURATION 
fmaeeystem Configuration 

Figure 4 shows a general drawing of the multi- 
Mmeeeessor system configuration. The CPU's are iSBC86/12A 
Single board micro-computers that come with 64K bytes of 
local memory. In Cox's work an inactive iSBC86/12A's memory 
served as the global memory module [Ref. i2:p.49]. The 
module was replaced in this implementation with a 32K byte 


RAM board compatible with MULTIBUS. Communication with each 
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CPU for the purpose of loading developed software is via the 


feeial port on each SBC. 
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Fig.4 System Configuration 
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2. The 8086 Microprocessor 

The 8086 is well-documented in (Ref. 1] and 
Miet. 2). IE QVaL I section is intended to give general 
knowledge about the 8086. 

The 8086 is a high performance, general purpose 
fmereoprocessor. The CPU contains an Execution Unit (EU) and 
meeaus Interface Unit (BIU). The two Uilelies operate 
independently of each other. The EU executes instructions 
in mucn the same way aS a conventional CPU. But the BIU is 
dedicated to fetching instructions, reading operands, and 
Writing operands which the EU is executing or operating on 
respectively. The BIU also "pipelines" or stacks 
Mmeeructions in an internal RAM array to a level of six. 
mis, a Majority of the fetch time in executing instructions 
disappears. The number of instructions executed per unit 
time significantly increases and idle time on tne bus is 
ieenimized. 

The 8086 has a 16 bit data path and address space of 
one megabyte. The CPU gives direct hardware support to 
programs written in the high level language, PL/M-86. Those 
very low level routines that must be written in assembly 
language are developed in ASM86. The object code modules of 
em can be linked together without difficulty. The basic 
instruction set provides for direct operations on memory, to 
include stack operands. It provides software generated 


Miverrupts, byte translations from one code to another, 
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move, scan, and compare operations for strings up to 64K 
pyees if length, multiplications and division of binary 
mumbers . 

The 8086 has eight 16 bit general registers, four of 
which are byte addressable. The remaining four are index or 
Meanter registers, which could also be utilized as 
meeumulators like the first four. Figure 5 shows the 
@eanization of the 8086 registers and their principal uSe. 

The 8086 has nine status bits that can be set in the 
Mere register which is a 16 bit register. The functions of 
the status and control bits are listed in Figure 5. One 
ait, the iio flac Or Pier thae, Nas = special 
Sienificance. If the flag is "i" it enables maskable 
maewerrupts. PPeiversm Oo way Gisaoles maskable interrupts. 
imiestlag must be initialized for appropriate use in the 
operating system. The [IF flag will be described in greater 
Geeall in a later section. 

3. Segmentation and Segmentation Registers 


The 8086 does not support the notion of explicit 


segmentation. For example, it contains no special hardware 
to perform memory management functions, segment access 
checks, Or bounds CNneeckine:, However, addressing is 
"segment-like" as it is two- dimensional. All addresses are 


composed of two parts: the base and the offset. 8086 
programs view the one megabyte address space of the 8086 as 


a group of segments that are defined by the application. 
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m@genbase is an absolute address that points to the low 
memory end of a segment aligned on 16 byte boundaries. The 
offset is a 16 bit number that indicates position from the 
base address. Therefore, any segment can be up to 64K bytes 
meme and consists of contiguous memory. The segment base 
address can point to any location in the one megabyte 
address space. As the base segment address can only be 16 
Mees long, the low four bitS are asSumed to be Zero. 
Segments may overlap, partially overlap, be adjacent to each 
memer, or be disjoint. 

The segment registers contain the various segment 
base addresses. At any point in time the CPU can address 
four segments. The function of the segment registers may 
sometimes alternalte but in this implementation they are 
meedein their default roles. Figure 5 applies to the next 
several paragrapns. 

The code segment register (CS) contains the high 16 
bits of the absolute address of the currently executing code 
memment. the register is used in conjunction with the 
Meeeeruction pointer register (IP) which is an offset value 
meem the contents of the CS register. Together, these 
registers are used in a similar manner to tne program 
m@emmver Of smaller» micro-processors. All instructions are 
fetched from this segment and the IP always points to the 


Seeeeeinstruction to be fetched. 
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The data segment register (DS) contains the starting 
address of the current data Segment and generally contains 
Peoeeram constants and strings. hues se rOouctnely used iin 
Conjunction with the source index register (SI) and the 
destination index register (DI). The DS register may be 
changed during execution of the program and, normally, each 
code segment will have an accompanying data segment. 

The stack segment register (SS) is used to implement 
the per process stacks required by MCORTEX. I[t is used in 
conjunction with the stack pointer register (SP) and the 
base pointer register (BP). Rapantzikos had two stacks in 
effect at any one time in his implementation, a kernel stack 
fee a user stack [Ref. 11:p.74]. When Cox simplified 
MCORTEX, only one stack remained. As MCORTEX can be viewed 
as part of the process address space, there is only a need 
moma per process stack. The contents of the SP register 
indicate an offset in higher memory from the SS register 
Bemeenits. SP points at the current top of the stack which 
grows towards lower memory and the stack base. Therefore, 
mm@eminicial value of SP indicates the bottom of the Stack. 
Seis Kind of a utility marker. The first time it is used, 
it points to the same location as SP at the beginning of the 
Back. If for some reason, a group of arguments are pushed 
on the stack (as in preparation for a procedure call), the 
BP contents are pushed on the stack and then BP is updated 


Memegual the current SP (top of the stack). In this way, an 
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Metivation record is delineated. When it comes time to 
discard the arguments, the CPU Knows how far back down the 
stack VOmr OM ine acuuality, the SP is updated with the BP 
value on top of the stack. Nothing is ever erased from the 
stack. SP and BP are simply constantly manipulated. Growth 
of the stack will overwrite some locations.) Stacks can be 
up to 64K bytes long and, like all other segments, can be 
placed anywhere in the one megabyte address space. 

The extra segment register (ES) is typically used 
for external or shared data, and data storage. 

fee tie LS58C86/ I2ZA(Single Board Computer) 

The iSBC86/12A is a complete computer capable of 
stand-alone operation. Kies wWsed as the basie processing 
node of this multiprocessor system. The SBC includes the 16 
bit 8086 CPU, 64K bytes of RAM, a serial communications 

hKk9terface, three programmable parallel IAG, pOrGs. 
programmable timers, a programmable interrupt controller, 
MULTIBUS interface logic, and bus expansion driver for 
interface with other MULTIBUS compatible expansion boards. 
mmere are provisions for the installation of up to 16K bytes 
oe ROM. AS MCORTEX progressSeS it is anticipated that the 
Operating system will be programmed into ROM. 

nmere are three sets of connections that must be 
Made to each SBC. By convention one single board computer, 
SBC #1, has been selected to provide the MULTIBUS clock 


Signal. Switches and jumpers for extended addressing must 
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be set and there are three jumpers uSed to implement the 
preemptive interrupt system. iaemesvyseemn  buS = clock 15 
provided by jumping the adjacent pins E105 and E106 on SBC#T 
OLY. The latter two sets of connections are explained in 


mae next two sections. 


Sree FHYsLCAL ADDRESS GENERATION 

1. General 

There are two methods to specify a memory address. One 
is the absolute or physical address and the other is the 
logical address. There is only one phySical address that 


Will specify a given memory location but there may be 


several logical addresses equivalent to one absolute 
address. Absolute addresses can range from 0 to FFFFFH. 
The following are two examples of how the processor 


reconstructs absolute addresses from two-dimensional logical 
addresses: 

ae 2 oon O00 Der lke 00270 314.0 
It should be noted that the base and offset are held in 
separate 16 bit registers. The base in both examples is 
Seer ted left four bits and then the offset is added. A 20 
bit address results which ranges the entire one megabyte 


address space. 


a. 1234 be L200 
12340< 12000< 
+0000 +0340 
12340 12340 


Mieesnifting of the base is what forces the alignment of 
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segments on 16 byte boundaries. It is apparent that the two 
different logical addresses are equal to the same absolute 
maaress. The above is an extended address because it falls 
outside the range 0 to FFFFH or 64K byte range of ae single 
@eocessor. White processor the reference 1s made to is 
discussed in the next section. 
2. Local and Extended Addresses 

Addresses outside the range o to FFFFH are extended 
addresses from the point of view of a Single board computer. 
As the other SBC's also have 64K bytes of local RAM, there 
must be some way of designating where in the one-megabyte 
address space they fall. Locally, the SBC does not need or 
recognize the 20 bit address. If one is Specified, the SBC 
has to know, via the MULTIBUS, where to go. The iBSC86/12A 
contains jumpers and switches that allow it to translate 20 
bit addresses into local memory. If each SBC is configured 
properly, each 64K byte local RAM could be given a unique 
identity in the one- megabyte address space as viewed from 
the MULTIBUS. Those connections are listed in the next 
section. Understanding how local and extended addressing 
works, and how absolute addresses are formed from two- 
dimensional addresses is imporvant because the 
implementation of MCORTEX on the ISBC86/12A depends on it. 
The next several paragraphs assume that the SBC's have been 
configured as listed above and that the full 64K bytes of 


RAM is visible or accessible from the MULTIBUS. 
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Pacirm@e PolGreOr |View Of the monitor currently 
resident in ROM on the SBC, the designer can specify 
absolute or twoedimension addresses. For example, the 
display command, "D", can be executed by typing: 

a. .D2345 or b. .D@200;0345 
The many ways Example (b) could be listed have already been 
explained in Section A. Example (a) will return the same 
result. The difference is noted in how the CS and “{[P 
registers will be loaded to fetch the contents at that 
location which, incidentally is in local memory. If Example 
(a) had been a number greater than FFFFH, the address would 
have been "wrapped around" to lower memory. For example: 

legs 
meomed have returned the contents at 2345H, as that was 
loaded into the SI. DS was assumed to be zero. However, an 
example such as: 

7D 120080345 
would have returned the contents at 12345H, which is 
external to the local memory. In this implementation, the 
address would have been on SBC #1 at its local absolute 
address of 2345H. SBC #1 as viewed from the MULTIBUS, has 
meet the memory from 10Q000H to 1FFFFH. A full listing of 
Meese translations will be given in the next section. 

Peo COC pDOlie Gi VieWesof the .~HOL, PL/M-86, 
Knowledge of local extended addressing is also important. 


The compiler represents pointer values differently depending 
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SaeeeoODt1iOnSsS set at compile time. All code compiled for 
MCORTEX and the user processes must be done with the 
attribute "LARGE". For example: 

Poe eMBOernOerooo.anl LARGE 
femeieresult in the PLM source file "PROCES5.SRC" to be 
compiled. iiemmceuisouce —lAkGe” Indicates to tne compiler 
that references outside the 64K byte range of local memory 
are to be made, and therefore, address references have to be 
represented in a certain way. Specifically, DoOLicer 
variables can now have the value 0 to FFFFFH and even if the 
source code contains an absolute reference, it will be 
represented in memory as two words. The higher two bytes 
will contain a base value from 0 to FFFFH and the lower’ two 
bytes will contain dmeori Sey Value ummom 0 tC FFF Has chor 
both the offset and base the least significant 8 bits are in 
the first byte and the most significant 8 bits are in the 
second byte. This knowledge was used to implement the 
Geecenostic monitor process so tnat it could access any 
memory from any SBC in the multi-processor system. 
[Ref. 6:pp.B-1 to B-8J (Ref. 7:p.5-4 and 8-1] (Ref. 8:p.4- 
14 and 8=+3] 

nae locator, 'LOC86o"”, also makes use of local and 
extended addresses. The locator takes an object module that 
has been linked with necessary modules and resolves all 
relative referances into actual addresses. To maintain the 


integrity of modules during testing and because it is 
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necessary to overlay some modules on top of each other, 
certain segments are “located” at specific addresses. The 
following example comes from the locate command file 
actually used to locate the operating system whose file name 
fe "KORE.LNK": 

LOC86 KORE.LNK ADDRESSES(SEGMENTS(& 

STACK(03000H) ,& 

INITMOD CODE(02800H) ,& 

GLOBALMODULE DATA(OEOOOOH) ))& 

Sone ohAek Gyo) )& 

RoWOH TO OFFEH) 
Absolute addresses have been specified for two modules and a 
stack segment. All will be located at local addresses 
except for the global data base. An external 32K RAM board 
has been attached to the MULTIBUS to serve as global memory. 
It will recognize references from the MULTIBUS from EOOQOH 
meme EV PEEFH. The output of this command is the executable 
Meqge module, KORE, that could then be loaded on all the 
pec's. Paem obC=would have a copy of MCORTEX in its local 
memory and each would "Know" where to go to find the global 
data base. 

bem Hardware Connections for Local/Extended Addressing 

The following are the hardware connections needed to 
set up RAM addresses properly for MULTIBUS interface access. 
They consist of one jumper connection and eight switch 
SecvingsSs on a dual-inline package (DIP) called S1. Each 
board's full 64K byte RAM is made accessible to the MULTIBUS 


Dy setting switches #5 and #6 open on every SBC. Switch #8 
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om ol is always open. Switches 1-4 have to do with 
displacement of the base address as seen from the MULTIBUS. 
It is necessary to only use switch #1 to indicate a 64K 
displacement from the top of a selected 128K byte segment in 
the one-megabyte address space. Switches 3-4 are always 
open. The jumpers select the 128K byte segment of the one- 
megabyte address space where the 64K byte RAM will be 
placed. [Ref. 2:pp.2-7 to 2-9] 
Mapes |. RAM VADDRESSES(CMULTIBUS INTERFACE ACCESS) 


SBC # Switch #1 Jumper Connections Placement 

0 closed 127-128 OOOOOH-OFFFFH 
] open 127-128 1OOO0CH-1FFFFH 
2 closed 125-126 COOOOH-$2FFFFH 
3 open 125-126 3O0000H=$3FFFFH 
4 closed 123-124 4YOOOOH=}{4FFFFH 
5 open 123-124 5OQOOO00H=-5FFFFH 
6 closed 121-122 6O000H={5FFFFH 
if open 121-122 TOOOOH-7FFFFH 
8 closed 119-120 S8QO000H=-8FFFFH 
9 open 119-120 QOOOCOH=9FFFFH 


Dee INTERRUPT HARDWARE 
ieee Description 

As with most other micro-processors, the 8086 does 
not possess the capability to directly generate interrupts 
destined for other devices. This characteristic is needed 
to implement preemptive scheduling. One of the high bits 
from one of the parallel ports is used to initiate the 
macerrupt. The MULTIBUS has eight interrupt request lines 
that can be used, INTRO through INTR7. INTR4 was arbitrarily 


selected. The output bit from tne parallel port must drive 
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mie interrupt request line and it must follow convention by 
using a negative-going-signal on the MULTIBUS interrupt 
request line to request interrupt service. A single input 
nand gate serves to drive and invert the signal onto the 
MULTIBUS. Likewise, the same interrupt request line must be 
connected to the programmable interrupt controller (PIC) 
which recognizes a positive or poSitive-going-signal to 
initiate an interrupt sequence with the CPU. By using the 
Single INTR4 line, all SBC's react to the interrupt signal 
when one board issues it (as well as the one that issued 
mem) ihis does not create a problem and it will be 
peepiained in the next chapter. In Summary, the high ie le, 
Meom a parfallel port is used to broadcast an interrupt 
meonal onto the MULTIBUS INTR4 line which is in turn 
connected to the PIC. 
2. Hardware Connections 
Figure 6 shows three connections that must be made: 

9 We, Byles 

Boge to aes 

le Sy we) Eeba2 
More detailed drawings are contained in PReEt. 2:70 .5— 


Beco 5-24). 
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eee wes roleM eDESTON AND IMPLEMENTATION 


eeu ClURE OF THE OPERATING SYSTEM 

The distributed modules of the operating system create a 
varcvual machine hierarchy which Conerols process 
interactions and manages real processor resources. The 
operating system is not aware of the details of process 
tasks. It knows each process only as an entry in the 
Virtual process map. It provides processes with scheduling, 
Memenronization, input/output services, and a diagnostic 
process. 

The operating system is constructed in terms of four 
Meyers of abstraction. Fach layer, or level, builds upon 
the resources created at lower levels (See Figure 7). 

Level 0 is the bare machine which provides the physical 
resources, real processors and storage, upon which the 
Virtual machine is constructed. 

Level I is the scheduler and operating system support 
meaetions. (iiMsmsmencetunscy Uayer or the software. It 1s 


closest to the hardware and encompasses the major machine 


dependent aspects of the system. Since several of its 
functions are directly involved with the hardware, it was 
Meeessary to code some of it in assembly language. This 


Seeelon also contains the "starting point of the operating 
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miecem sand 4a small section of code to initialize physical 


devices. 
Level II is the utilities/services level. All user 
avallable services are located here. Input functions were 


added and the "Preempt" function was corrected and changed 
to reflect the addition of a new system process. 

mevel LI2i is the Supervisor. Ete 1S e€ssentrally,. the 
Gatekeeper module of Appendix I, and provides parameter 
adjustments for services requested by the user and a_ single 
entry point link to the operating system "Gatekeeper" in 
Level Il. 

Three system processes are "given" to the user. They 
are system processeS as Opposed to user processes because 
they are created by tne operating system. inesaini eval 
process, the idle process, and the new monitor process are 


scheduled by the Same rules as any user process. 


Pee SYSTEM DATA BASE 

A software lock is provided for the global data base 
Meed by the operating system. It is called "GLOBAL$LOCK'"., 
it has nothing to do with any shared data structures in 
global memory set up by user processes, but only the system 


data base, which is resident in shared global memory. 
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Pao Jlipeuakerwocessor Map 
The Virtual Processor Map (VPM) is the major data 
Base on which scheduling decisions are based. The tadle is 
Mmeeitioned into sets of virtual processors. There is one 
entry in the table for each virtual processor in the system 


and one virtual processor for each process if it has ever 


been created. Surrentiy, the table is set to handle ten 
virtual processors for each real processor. In weaddi tion, 
mae table can handle ten real processors. Three process 


mmermres occur by default for the idle, initial, and monitor 
processes. Tnese processes are created and initialized by 
the operating system. A real processor will have ten 
contiguous entries in the VPM, seven of which are available 
to the user. As the VPM iS an array of records, the index 
memeach record or virtual processor structure is, in effect, 
a unique system ID for the virtual processor. Each entry 
memsistS of: a process ID given by the uSer, current state 
of the process, process priority, an eventcount thread, the 
threshold value for the event it is waiting for, and the 
Stack segment base address for the process. Twe virtual 
process ID of FFH and FEH are reserved for the operating 
meoeem. rH 1s used by the idle process and the initial 
erocess. at eloeeenemunlLaue identifier for the monitor 


process. 





Eueevenceounc Table 

The eventcount table is for synchronization. It 18s 
mmearray set up for 100 possible entries consisting of an 
event name, current value, and an eventcount thread. 
Associated with each entry 18S an index. Each eventcount 
thread is the start of a blocked linked list. If the thread 
value is FFH, then that is the end of the list. Otherwise, 
is equal to some index value in the VPM. That VPM entry, or 
virtual process, will be active and waiting for a certain 
m@areshold value for that eventcount. dieu y PMen try ema 
itself contain another thread value indicating that some 
other virtual process iS waiting on the same event. 
However, Le Souda be daedrrterent threshold “value. 
Associated with this eventcount array is the variable 
"Events" which indicates how many active events there are 
currently in the table. 


One event name, FEH, is reserved for the operating 


system. It is used to block processes that will never be 
awakened by the normal "Advance”™ mechanism. Midge? ind Cabal 
process and monitor process are examples. See any INIT 


module in the appendicies. 
3. Sequencer Table 


The Sequencer Table is used to support. process 


renronization and ordering. Space is reserved for 100 
sequencers. Each entry consists of a sequencer name and a 
Value. Associated with the table is the variable 
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"SEQUENCERS" which indicates the number of active entries in 
the table. 
4. Other System Data 

Another structure in shared global memory is the 
Hardware Interrupt Flag array. There is one flag for every 
real processor, so the maximum size of the array is ten. 
The index of the array corresponds to the system unique CPU 
number for each real processor that iS maintained in each 
local memory. 

There are two utility variables kept in the system 
data base; (1)the number of active real processors, and (2) 
an array that keeps track of the number of virtual 
processors active on each real processor. The index of the 
array corresponds to the system unique CPU number for’ each 
real processor. 

"CPUSINIT" is a byte variable that is accessed _ and 
incremented once each time a real processor becomes active. 
iets USed to establish the System unique CPU number that is 
the key to the way all of the information in the system data 
base is organized. The reason this method is used, as 
Opposed to the "Ticket" operation, is to preserve the 


hierarchy of the operating system. 
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fee LOCAL DATA BASE 

Wie Tocal data Base for the operating system is the 
Mmeecessor Data Segment (PRDS). It contains information that 
Meplies only to the real processor on which it 1s resident. 
[meme consists of the system unique CPU number, the index of 
Mmerst entry in the VPM for that real processor, the index of 
mee last possible entry in the VPM for that real processor, 
a counter that reflects the relative amount of time spent in 
the idle process, and a redundant variable that reflects the 
number of virtual processors currently assigned to the real 
processor. This number is maintained in shared memory and 


memts derivable from the second and third items in the PRDS. 


Bee LHTERRUPT STRUCTURE 


The operating system Comuizol Ss the multiprocessor 
environment. A means of communication or signaling between 
Meat processors is required. A Sane lex system-wide 


Meecmptive interrupt Signal is the vehicle to accomplish 
this. It was arbitrarily chosen to be interrupt-request-4 
of tne eight available for use. The hardware connections 
required to implement the system interrupt are described in 
erg! in Chapter III, Section OD. Sor ewarencontrol.2s 
required to ensure that the hardware performs with certain 
characteristics and emmoeculatiy es 1Ssue the interrupt. 
Several problems were encountered in the testing of this 


part cf the system. 
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A brief description of the entire interrupt sequence is 
mameorder first. the operating system finds, in the course 
of events, that one or more processeS are waiting for. an 
myent that the currently running process just caused. If 
any of those waiting processes are associated with the same 
real processor, then the scheduler will simply be called to 
make a scheduling decision. If those waiting processes are 
associated with other real processors, then the operating 
System has three things to do: (1) It locates the waiting 
processes in the VPM and changes their state to "ready", (2) 
It sets the hardware interrupt flag associated with each 
real processor, and (3) it issues the single system wide 
mmeerrupt Signal to indicate to all procesSors that a 
Semeaduling may be in order. Ail processors will execute 
their interrupt handler which in turn will check to see if 
Mmaeir respective flags are set. If the flag is set, a call 
memcne scheduler is made. If it isn't, normal execution 
resumes. The adopted convention in this implementation is 
that the processor issuing the interrupt never sets its. own 
flag. If it needs rescheduling, the scheduler is called 
@erectly. 

MmemenisS DOINt 1% would be good to review Figure 2 in 
@meapeer JIil, Section D. Note the positions of the interrupt 
driver and the other inverter. There is also a pull-up 
meerscor on the INTR4 line on the MULTIBUS side of the 


interrupt driver. More complete coverage of the hardware 
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devices and their programming is given in [{Ref. 3:pp.B- 
mie to B-123) and (Ref. 3:pp.A=-136 to A-136] for the PIC. 
The best reference for the PPI is {Ref. 2]. 

All of the initialization software for the PPL and PIC 
me correct. Dew Domr explained at the end of this 
section. However, the misunderstanding of one of those 
programmed features caused the poor design of a very small 
but critical portion of the operating system. There are two 
procedures that isSue interrupts, "Preempt"™ and "Advance". 
Mex arranged the instructions for issuance of the interrupt 
in the following manner: 


OUTPUT (PORTS$CC) 
SOTPUT(PORTSCC) 


RESET: 
80H; 


mamone procedure interrupts were disabled during this 
sequence and in the other they were not. Now they are both 
Seesadled consistently. The above sequence is not logical 
because the INTR4Y line on the MULTIBUS is not reset after 
being used. Thus, no one else can use it. Other processors 
would not have their interrupts recognized unless’ the 
Sroginal processor that sent an interrupt, reset it. They 


eould send it, but it would have no effect on a MULTIBUS 


interrupt line already being held low. That could have 
disasterous consequences. Cox SaaGcnonstravion .of  EWwOoO 
Processors with three processes worked by accident. The 


Sequence was the only way he could get the other processors 


to recognize = an ieee ru pt Signal. Supposedly bound 


ie 





processors were isSuing interrupts, when in fact only one 
was. The demonstration appeared to work because of timing. 
Mme interrupt signal causes all processors to check the 
hardware interrupt flags. Therefore, even if an interrupt 


Signal was missed, the hardware interrupt flag was at least 


meme if the one processor that had control of the interrupt 
request line equa issue another I ghe Syeleol eye | then 
rescheduling would occur none the less. Addmivronally, the 


controlling process in Cox's demonstration was ten times as 
long as the other two combined on the other processor. This 
combination of features allowed the system to synchronize. 
The moment additional SBC's were added to the system or the 
system was loaded down with more processes, it failed to 
synchronize and the entire system would idle. 

The first step in solving the interrupt problem was. to 
reverse the two instructions because that was a requirement 
for the system to operate asynchronously. Diagnostic 
hardware ee used to determine why no interrupts were 
meeeenized from this "correct" sequence. It was found that 
although the PIC was programmed to be edge triggered, the 
active level had to be maintained for a short period before 
the interrupt request was recognized by the CPU. In the 


@erreeted sequence, the interrupt request was apparently 


Being removed or reset too quickly. After arbitrarily 
Meeroducing a delay, @all other CPU's recognized the 
request. It is suggested that an interrupt acknowledge 
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system of flags be set up so the interrupting CPU will nave 
pmpOsitvive indication that interrupted processors reacted to 
the signal. 

In testing the generality of MCORTEX once the interrupt 
problem was tentatively cleared up, additional SBC's were 
added to the system. It was found that an uninitialized SBC 
would Holdwedown “the INIn4d line. This will kill all 
communications between processors. If the additional SBC's 
were loaded with MCORTEX and no uSer processes, then the 
system communicated effectively because the operating system 
Memd initialize the PIC's and PPI's. This is the reason in 
meeendix A that any SBC with no user process, "idle CPU's", 


emer initialized first. 


MCORTEX has now been tested with four SBC's. Onie-= SEC 
was maintained as an “idle CPU". Three were loaded with 
meve processes. The original three processes of Cox with 


Slight changes were kept. Then an independent system of two 
processes was added. The two independent systems share one 
of the Sec! Ss. Mieaadd? UlOn.ee cine — Mew System actually 
demonstrated the Sharing and passing of information via 
common memory. Pr io demonstrat rons only tested 
Sem@ernonization. To prevent the system from scheduling 
processes in a repeated sequence, input was prompted from a 
user. This new demonstration showed truly asynchronous 


processes working together and interfering with each other. 
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However, this demonstration does not guarantee the correct 
Seeration of the preemptive interrupt. 

A final point needs to be emphasized at this point. The 
question has been asked, "Will interrupt requests from 
different processors ever overlap?" The answer is no. They 
are guaranteed mutual excluSion because the system data 
Structures are locked before the interrupt request is 
issued. No other single board computer can issue an 
[Meeerrupt until it controls the lock. 

flemimplement the interrupt structure, the PIC and PPI 
have to be initialized. The triggering mode, interrupt 
vector table address, and the parallel port mode have to be 
set. The type (number) of interrupt received is added to 
mm@erinterrupt vector table control word and multiplied by 4. 
The result points to a 2-word (4-byte) memory space in the 
interrupt vector table -- called the interrupt vector. The 
interrupt vector points to the address of the intended 
meperrupt handling procedure. The interrupt vector consists 
of the offset and code segment base address for the 
meeerrupt handler. An interrupt will cause _ the flag 
register, CS register, and the IP register to be pushed onto 
Meemovack. Then, an indirect call is made through the 
memerrupt vector to the interrupt handler. 

imeuptalization of the 8259 PIC must follow ae specific 


format and sequence. Etscan require up to four interrupt 





miremoevords (EWC) for Initialization. In our case, only 
three are required: IWC1, IWC2, and IWC4. 

iMicteemustmeo to port OCOH. It is 13H. It means edge 
meeeering, no Slave PIC'’s, and IWC3 is not required. 

mise must Omposport OC2h. It is 40H. [twenidicates 
mmeace the interrupt vector table starts at 40H x 4 which is 
Meee IWOo must go to port OC2H. It is OFH. It indicates 
8086 mode, automatic end of interrupt, and buffered mode. 

mmes result of the initialization is that in the case of 
an INTR4, the PIC will perform the following operation: 

4x (IWC2+INTR#) = 4xC4O0H+4) = 110H 
i@ewresult is that the interrupt vector address for an INTR4 
meme | 10H. The two words residing at 110H and 112H will be 
used for an indirect call to the INTR4 interrupt handler: 

Mm 10OH}:(1128] 

The starting address of the interrupt handler must be loaded 
to this vector address. 

There are three parallel I/O ports. One bit of one of 
Mmmemports is used to drive the INTR4 line. Port C and bit 7 
are used. See Figure 2 for details on connections. One 
meee t wWOrd iS sent to port OCEH to indicate that port C 


Memeieoe USed as an output port. The control word is 80H. 





fee PROCESS STACK 

The per-process Stack 1S used to form a VieG Bila 2 
processor which maintains the process state information. 
This includes the current execution point, the code and data 
segment base addresses, and ina particular instance, all 
mame working registers. Since this stack reflects the state 
Saeecne real processor registers at the time of execution, 
this data structure represents a virtualization of the real 
processor. By loading the stack segment base location into 
the SS and restoring the real processor status from the 
Stack contents, the process execution can be continued where 
iemeeast left off. To change processes, the real processor 
peaeus 1S saved on the current process’ stack for future uSe 
and the new process' stack segment is loaded into SS from 
the VPM. The real processor Status is then restored from 
this new stack segment. 

A three word header is maintained at the stack segment 
base: stack pointer (SP), base pointer (BP), and 
interrupt-return-type (INTRSRET). This header is used to 
make the proper adjustments and decisions for restoring the 
hardware condition during scheduling. 

Each process must have its own unique stack. The over- 
process-sStack is automatically blocked out approximately 125 


words of user run-time stack. 
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bee SCHEDULING 

The scheduler has two different entry points and _ two 
Smererent exit points. Tne difference exists because of the 
different requirements for saving registers. 

A normal entry call by a Level If funetion does not 
require any general registers to be _ saved. ihe -eny 
register which must be explicitly saved on the stack is the 
data segment register (DS). At this time, INTRSRET is set 
moe’ O”, indicating a normal scheduler call. The scheduler 
executes and process selection and initiation take place. 

Moeli@eerrupt entry call is made through the interrupt 


handler which checks the hardware interrupt flags to see if 


it is the one for which the interrupt is intended. Ii so. 
all registers are saved in a particular order. INTRSRET is 
meer o |//i1l, Indicating an interrupt scheduler call. As Ds 


Was already saved, the scheduler is entered at a different 
Bemne tO avoid that instruction. Process selection and 
initiation then take place. 

In the common code, the past process! stack status is 
saved in the stack heading. Also, the return type indicator 


is saved in the stack header to be used when the process is 


Seems rescheduled. "Getwork" is called to select the highest 
Meeerity process that is ready to run. The stack segment 
for the selected process is returned in AX. "Getwork" 


received the information from the VPM. The scheduler loads 


AX into the stack segment register. The context has 


58 





effectively been switched. The new process' stack condition 


is restored and the return type indicator is checked to 


eecertain the Circumstances of the process! last run-time 
termination. temmume tmidreavlon is a normal return, DS is 
meevored and the process returns to its calling point. Sq 


mee indication is an interrupt return, then all registers 
pmeee restored and the process returns to its execution point 


at the time it was interrupted. 


The scheduler makes calls to two other rae wey, 
memerions: "RDYTHISVP" and "RETSVP". "“RDYTHISVP" determines 
mmeh process is currently running by calling "RETS$VP" and 


sets it to ready. 


Meee tHE GATE AND GATEKEEPER 

The "Gate" modul@ provides parameter translation = and 
adjustment to facilitate processing. It directly provides 
Mme OuUblic link with user processes for access to system 
services. ccm vOmmCOe — SDeECifie utility function is 
Pmoeessed in the "Gate", from which a further call is made 
to the operating system "Gatekeeper" ,where a final call is 


made to the specific procedure processing the requested 


service. The "Gate" module must have been provided tne 
"Gatekeeper" procedure's address before the "Gate" was 
compiled. This address is obtained manuaily from the 
operating system location map in file: "KORE.MPe" (see end 
BeeApp. F). 


ao 





feel oeR AVAILABLE SERVICES 
1. Create Eventcount 
A process cannot assume that an eventcount it 1s 
going to use is already in existence. Any process that will 


use the eventcount must create it. The procedure is passed 


one parameter: the name of the event to be created in the 
myenceount table. It calls “Locate Eventcount" to see if 
the named event already exists. If not, it enters the name 


memcne table and initializes the entry. It then increments 
the number of events; "EVENTS". If the named event is found 
men "Locate Eventcount" is called, it Simply returns with 
no change. 
2. Advance Eventcount 

The "ADVANCE" procedure increments the named 
eventcount and broadcasts this to the processes awaiting 
THis particular event, via a thread. Voce Senaplers Ly. 
Meer2on C, subsection 2 for an explanation of the thread.) 
To awaken a process, its state is set to ready. If the 
awakened process is associated with the same real processor, 
then the scheduler is called to reschedule all eligible 
processes (ready processes) for the real processor. If the 
awakened process is associated with another real processor, 
then the hardware interrupt flag for that real processor is 


set and an interrupt is issued. 
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3. Await Eventcount 
"Await" is passed two arguments; (1) the event's 
name, and (2) the threshold value of the event it is waiting 
on. The current value of the named eventcount is checked. 
If the current value is less than the threshold value, the 
process is blocked and its state is set to waiting. The 
blocked process is added to the head of the thread. The 


scheduler is then called to select another eligible process 


mor run. If the process is not blocked, ‘Await" executes a 
return. 
4. Read Eventcount 
"Read" is passed two parameter; (1) the eventcount 
name, and (2) areturn pointer. The procedure obtains the 


current eventcount value and returns it to the calling 
process by using the pointer as a base for the value to be 
returned. With indirect calls, a value can not be returned 
eee ctly. 

Be Create Sequencer 


"Create Seq" is passed the name of the sequencer’ to 


be created. The Sequencer Table is searched by "locate Seq’ 
meee the Eventcount Table to see if it exists. Lie 
feemous, then a simple return is executed. If it does not 


exist, the name is entered into the table and the other 
entries are initialized. The number of entries in the 


table, "Sequencers", is incremented by one. As with 
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Byenvcounts, all processes that use a sequencer must create 
it first. They can not asSume it has already been created. 
6. Ticket Sequencer 
The "Ticket" procedure is passed two parameters; 


(1) the name of an already created sequencer and (2) a 


mecurn pointer. Ms ,puUrpoese §is to obtain a unique 
sequential number for the named sequencer. The current 
value is returned via the base pointer. The sequencer is 
then incremented. With indirect calls, a value can not be 


returned directly. 
fm Create Process 

Demwearemra~oc! 1S called from the initial process or 
one of the user processes. The parameter passed as input to 
the "Gatekeeper" is a pointer. The pointer is used as a 
base to a Structure to overlay the data parameters supplied 
by the user. These uSer supplied parameters are structured 
maeeche "Gate". The parameters are: process ID, process 
Priority, process stack segment location, process IP, and 
Meocess CS. co: tee lS eethemestarting address of the user 
process and it is manually obtained from the memory map 


associated with the process (the map may apply to several 


processes). Once obtained it is inserted into the initial 
module wna created males That module must then be 
recompiled, relinked, and relocated. A per-process stack is 


Semao.i1shed and initialized. The PRDS table and number of 


Wiieewal processors on this real processor is updated. 
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8. Preempt Process 

'"Preempt" is passed only the name of the process’ to 
be preempted. It searches the VPM for the process ID. When 
found, the process is set to ready and the scheduler is 
called or the processor is interrupted depending on whether 
the preempted process is the same real processor or not. 
"Preempt" is intended for high priority processes that 
block themselves when finished. 

"Preempt" was chosen as the vehicle to implement the 
second goal of this thesis. Thus, the existing frame work 


of the operating system was used to implement the “Monitor 


Pmocess". The procedure has a second part that is executed 
if the process name is "FEH",. That name has been reserved 
forme che "Monitor Process" which 1s described in the next 
section. The "Monitor Process" is a high DE LTOri cy 
G@meapnmostic tool given to tne user. Like the other system 
Processes, the "Idle Process" and the "Initial Process", the 
process is associated with every real processor. "Preempt" 


has to search each real processor's set of entries in the 
VPM to find each "Monitor Process" and set each one to 
ready. It must set the hardware interrupt flags of the 
mmmer real processors, but not its own. It issues an 
interrupt and all the other real processors are forced into 
mee Nighest priority process, the "Monitor Process". For 
itself, the scheduler is called and it goes into the monitor 


process. With the input services that have been added to 
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MCORTEX, the monitor can be scheduled via "Preempt” on a 
Mmeeular basis or by request. 
9. Communications with Console 

Leminoty owes DY Saimele character or line. SOG 
Char" is given a single byte value and "Out Line" is given a 
Beanter to the beginning of a string. The string should end 
fms" which will stop output. Any ASCII output can be 
mopped at the CRT by a ""S" which also freezes the process. 
Peer OutDut is resumed with a ""Q". This ability is useful 
to freeze diagnostic output for study. 

file im@oweewls bY =simgie character and it is not 
memoca. ‘In Char" could easily be used to fill a buffer for 
meme input. Once "In Char" has been invoked, the procedure 
Waits for the character. An additional service should 
probably be added that does not wait. 


Hexadecimal input and output exists for byte and 


meme Values in: "Out Num", "Out Dnum", "In Num", and "In 
moem'. Output is interruptable. Input is echoed for both 
byte and word values. [Illegal characters are ignored. 


Mot STEM INITIALIZATION AND SYSTEM PROCESSES 
mee oystem Initialization 
imiemscdnuelhe address for initiating the operating 
System is found in the operating system memory map in file: 
Beeeee ro" (See App. F). It is usually 100:30. When the 


system PSmltbedabedy Dy Srssuing the monitor command, 
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Beep: s0<er>, tne Operating System initialization routine is 
executed. imemect eands.!C are initialized as discussed in 
Chapter IV, Section E. 

Next a unique, sequential number is obtained = and 
meed tO initialize the "CPUSNUMBER in the PRDS table for 
mes processor. This is the identity of this real processor 
and is the key to the location of entries in the VPM. The 
moo 1s further initialized by uSing the "CPUSNUMBER" to 
calculate the beginning and ending locations in the VPM for 
this processor and by setting the number of Wag eibleyh 
processors on this real processor to three. 

The VPM 1s then initialized for the three system 
processes. The number of real processors in the system, 
"NRSRPS", is updated to indicate another processor has been 
added to the system. ("CPUSINIT" could have been used.) 
All hardware interrupt flags are cleared and the scheduler 
memcalled. 

ies stack USed “during the initialization is the 
kernel stack, which is located at the location specified in 
Mmmemexecution of "LOC86" (see App. F). In this case, the 
mememe! Stack is at 3000H and its size is 75H. In order to 
initialize the stack segment, SS, and stack pointer, SP, the 
initialization routine code cannot be in a procedure block. 
It must be coded as the main routine operating system 
("KORE") module. Neither the initialization routine or the 


Kernel stack is used again during the system run time. 


65 





PPE OCcess initialization 

When the operating system initialization routine is 
mamoleted, 1t calls tne scheduler. The scheduler selects the 
meenest priority ready process to run. Initially, that will 
eways be the initial process. This process is intended to 
be the vehicle by which the user processes are established 
mame the tables of the operating system. It is assumed that 
the programs are already loaded in memory as characterized 
in the creation specification. 

During the linking and locating of the operating 
eyevem, the file, "“INITK", was ineluded and located at 
2800H. This file acts as a dummy to establish the space and 
Seearcving location for tne operating system's reference. It 
MemaeValid initial process module, but it will normally be 
overlayed by an "INIT" procedure modified and loaded by the 
Meer. The user must locate his "INIT" module at 2800H in 
this implementation. 

Mee oe Site must fit the prescribed format as 
Provided and enough space must be reserved for it by the 
locate command. The user only modifies one area of the 
mile . He provides the absolute parameters required in the 
Pee tO the "Create Proc" procedure. One call must be made 
for each process. The uSer can create up to 7 processes per 
meee processor for a system total of 70. 

Also, of concern to the user, is the intended stack 


Moeeatvion. At the desired stack location, the user must 
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allow enough space for a stack of 120H bytes. The user 
Mmeocess must be coded in procedure blocks so the stack 
Seement, os, and the stack point, SP, will not override what 
eS provided by the operating system. The user process 
procedure block should have the attribute "public" so that 
the address can be obtained from the location map to be used 
aS parameters for process creation. See section ile 
pepsection 7 of the chapter. 

fimem “INTT”™ Ss process Will create the processes 
meecitied, then block itself with a call to "Await". This 
allows the newly created processes to be scheduled and run 
meeording to thelr priorities. 

ee ©6lme Idle Process 

iWewtale proeess has the lowest priority of any 
weocess. It is selected by the scheduler only if there are 
memouner eligible processes (i.¢., all others are blocked). 
When selected, its only function is to update the counter 
Semcained in the real processors own PRDS table at 
approximately one second intervals. Thus, a rough measure 
Seecime 1S obtained when this real processor is doing no 
useful work. 

oe ine Monitor Process 


This high priority system process is scheduled by 


all processors at the same time. No matter which process 
meeempts the "Monitor Process", the entire system will be 
meuc CO sleep". The entire system address space is then 
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accessible from the serial DOr v of any processor 
Simultaneously. Saget oOcessor exits the “Monitor Process” 
individually and in any order. The user could leave an 
mare CPU" in the monitor. However, the user must realize 
that data could be changing while he is accesSing it. The 
system would then resume normal scheduling. 

A primary motivation for implementing the "Monitor 
Process" was that there was no way to examine memory for 
diagnostic purposes until after the system had run its 
course or the designer stopped it arbitrarily. Now, memory 


can be examined on a synchronized basis with the occurence 


of specified events. A reeerd of transactions with the 
Beecess can also be secured We a line printer 
Simultaneously. 


Appendix C contains a summary of the monitor 


commands which closely mimic those of the resident monitor. 


fee tHODS AND FACILITIES 

Software development for MCORTEX was accomplished on an 
Intellec MDS 800 developmental system under the INTEL 
Pyosvems Implementation Supervisor (ISIS-II). The MDS 800 is 
Based on the 8080 microprocessor. ISIS-II is a diskette 
Operating system. The MDS system has two double density 
disk drives. Object code for the 8086 is developed on the 
MDS 800 and down loaded to the iSBC&6/12A's. Readers 


unfamiliar with the ISIS-II system are refered to [Ref. 3]. 
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However, all source code was developed using the text 
Savor, LED, from Digital Research Inc. 

There are two double density eight inch diskettes 
necessary to continue implementation of or to examine 
MCORTEX and test process source code. KEENER Shee COMvailns 
module source code, relocatable code modules, executable 
code modules, memory maps and basic ISIS-II utilities. 
KLINEF.B1 contains all the module processing programs such 
as the linker, locator, assembler, and compiler. Because, 
these programs are large, they are stored on a separate 
diskette. Output from the module processing programs’ goes 
mom ALINEF.A1. Mependieee= 6 Contains annotated directory 
Mmeseings of both diskettes. 

External hardware connections required to set up the MDS 
meer and SBC's in order to facilitate communication are 
detailed in Appendices A and B. Appendix A is a detailed 
"pre=jpower-on" and "post-power-on" checklist to load the 
Single board computers. Appendix B contains a drawing that 
describes the physical make-up of the transfer hardware. 
Meemcrrces a five wire RS232 cable in [{Ref. 12:p.45]. 
However, only three are required. See Appendix 8B for 
further details. 

1. The PL/M-86 Compiler 

As software modules must be compiled individually, 
femecommand files for use with the ISIS-II utility, SUBMIT, 


were established [Ref. 3:pp.3-13 to 3-14]. The following 
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memerols —were found to be uSeful: PRINT(:LP:), NOPRINT, 
CODE, and LARGE. The uSe of the control LARGE iS mandatory 
as discused earlier. It causes the compiler to represent 
addresses in such a way that the whole megabyte range of the 
8086 can be used. See Chapter III, Section C, Subsection 2 
mer additional information on addressing modes. The 
following references contain more details concerning run- 
time representations by the compiler when the LARGE control 
is used: (Ref. 7:pp.3-13 to 3-14, 5-1 to 5-5, 8-1]. Other 
pertinent references concerning the compiler are: assembly 
language module linkage [Ref. 7:pp.9=-1 to 9-3] and _ the 
preemptive interrupt process [Ref. 7:pp.10-1 to 10-4]. 
mee Link86(Linker ) 

LNK86 takes object code modules, combines them, and 
resolves external references from each individual module. 
The resulting relocatable file has the default file 
extension, ".LNK". No controls are necessary. Two command 
meees, "LNKK.CSD" and DCIS CGS DUS which have been 
Seva vlished can continue to be used in the future. 
Biman -COD" contains the commands to link all the object code 
meeules that compromise MCORTEX. "LNKP.CSD" contains the 
three commands that link the user modules into the three 
modules that will, after further processing, be loaded onto 
meamee SBC's. Complete error listings are given ni 


Miet. 4:App. Aj. 
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pee boos (Locator ) 

Use of the locator 1s a little more involved. Paar s 
program assigns addresses to the relocatable code modules 
that come from the linker. It requires knowledge of how 
modules are organized in the system address space both by 
the user, and by the operating system designer. 
[Ref. 4:Chapter 4] gives the best description of how the 
Mmeeatvor handles modules. The two command files, "*LOCK.CSD" 
emo, 'LOCP.CSD", established for the locator will also 
provide most of the Knowledge required to locate user code. 
Eventually, after more extensive testing, MCORTEX will be 
tuned and compressed to the maximum extent possible so that 
memeecan be put on EPROM. Currently, modules are well 
dispersed to facilitate design and development. 

Smewevpe Ot CUutpuUe file from LOC86 is the "™.MPe" 
memory map file. imemadaduerenm rte valuable diagnostic 
information, several critical pieces of information from 
these file are necessary for the correct operation of 
MCORTEX and the user process. There are essentially three 
items; (1) the location of the gatekeeper, (2) the starting 
addresses of user code, and (3) the starting point of the 
Operating system. Warning remarks in the source code detail 
wnat and where these items are. In addition, later sections 
Im this chapter will discuss those items. 

wpeneetamining any "“.MP2e" file, a "WARNING 56:..." 


Will at certain times appear. For example, see KORE.MPe2 in 
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Appendix E. This is caused by intensionally overlaying some 
kind of segment in space that was previously reserved. The 
warning should not cause too much concern. See the memory 
mae from P03 in Appendix K for a more clear cut example. 
The effort in the last example was to prevent any code being 
mee next to the initial process code. See [Ref. 4:Chap. 3] 
memeemore details on the controls available to the LOC86 


command. 
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V. CONCLUSIONS 


meer pricipal goOdls of this thesis were met. The 
generality of MCORTEX was tested and demonstrated. Two 
problems were uncovered: (1) The interrupt mechanism does 
not appear to be totally satisfactory and (2) the issue of an 
inactive SBC bringing down the system will eventual have to 
be addressed. The system was demonstrated with four single 
board computers and there appears to be no reason why the 
additional six cannot be added. Actual synchronized sharing 
of data was demonstrated. Two independent user systems 
Operating simultaneously was demonstrated. The system was 
prevented from scheduling processes ina fixed sequence by 
introducing user interaction. User input services have been 
added to MCORTEX and a method was found within the existing 
framework of the operating system to incorporate dynamic 
interaction with the operating system itself. The total 
address space iS noOwW accessible from any single board 
computer OG system debugging and examination. 
Additionally, the operating system can be continued without 
reinitializing the system. "Preempt", which had never’ been 
tested, is now used to evoke the "Monitor Process". 

Three possible problem areas were cited by Cox in his 
thesis. The cause of the first one was acertained. A 


Weakness in the interrupt system has been clearly 
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identified. A possible problem with the eventcount thread 
was not examined as it did not immediately impact on the 
primary goals of the thesis. The third problem cited was 
the inablitiy to stop and restart the system without 
reinitializing all code. That ability now exists by 
selectively preempting the "Monitor Process". 

mature research with MCORTEX should concentrate on 
taking precise timing and performance measurements while the 
system is heavily loaded down. The second possible problem 
cited by Cox, mentioned above will also have to be examined. 
The process stacks should also be examined to dynamically 
confirm capacity usage as there are no definitive 
guidelines upon which to base stack siZe. HoeSsysvem of 
Nnardware interrupt ackowledge flags will probably have to be 


set up to stregthen the preemptive interrupt system. 
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BEPENDIX A 


Sore UNTEEALCTZATION CHECKLIST 


I. PRE-POWER-ON CHECKS 

A. SBC's have address translation switches and jumpers 
correctly set. 

Eee obC'S Nave 3 interrupt jumpers set. 

C. SBC #1 has MULTIBUS clock jumper set. 

ie NO other SBC has MULTIBUS clock jumper Set. 

E. SBC's and common memory board full seated in odd 
miecrs Of MULTIBUS frame.( RAM board can be in any slot.) 

meee remove all serial CRT cables from SBC's. 

G. J2 26 pin edge connector on transfer cable can be 
memeeed Up to one of the SBC serial ports at this point. 

H. If RS23e transfer-cable has a "null modem" switch on 
meee sev it to "null modem". This transposes wires 2 and 3. 
The switch may alternately be marked “computer to computer" 
meee Computer to terminal". Set to "computer to computer". 
It should always remain in this position. 

Mmeeconnect Other end of transfer cable (25P RS232 
connector) to 2400 baud CRT port of the MDS system. 

Mmeeconnect any CRIT to the 9600 baud TITY port of MDS 
system. 

Pee ensure CRT is set to 9600 baud. 

Iyeeech! that will be connected to SBC's should be set to 


9600 baud. This step is not mandatory, but recommended. 
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Vel acmeontimeday Will) be Connected to SBC should have 
RS232 cable hooked up to serial port. It should lead to 
flat 25 wire ribbon and J2 connector so it can eventually be 


meoexed to serial port of the SBC's. 


II. POWER ON PROCEDURES 

A. Turn power-on key to ON at MULTIBUS frame. 

B. Press RESET near power-on Key. 

eee lLurn power on to all CRIT's. 

D. Power up MDS disk drive. 

E. Power up MDS terminal (If not already done). 

Gee [Urn power-on key to ON at MDS CPU (front panel, 
Mmoeper left corner). 


FF. Line printer can be turned on at any time. 


ie BOOT UP MDS 

A. Place system diskette im dmrvye QO. Executable 
modules and SBC861 can be on another diskette in drive 1. 

bee rush Upper part of boot switch in (It will remain 
meecnat position). 

C. Press reset and release. 

Beeeeynen interrupt light #2 lights on front panel, press 
Space bar on console device. 

Eeeeereset the boot switch by pushing lower part of 
SWitch. 

meee tLols-II will respond with "-". 


G. Line printer can be turned on at any time. 
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IV. LOAD MCORTEX AND PROCESS MODULES 

hem per 'Sheao !<cr>”. 

Bee it “'*CONTROL*" appears, SBC was not able to set its 
baud rate. Reescmenaoel son MULTLBUS frame and start over. 
Once set, all SBC's should accept modules. 

GC. If "Bad EMDS connection" appears, you will not be 
Mble to continue. Check connections. Make sure diskette is 
not write protected. Push RESET at frame. Try again. 

ieee oeeool Will prompt with ".". It will now accept any 
monitor command. 

Pmeeciype "'L KORE". Walt for ".". 

Pee lype "LL <process filename>". Wait for ".". 

feaeeiyoe "'@" to exit SBC861. It is not a good policy to 
Switch the transfer cable to another SBC serial port with 
m@meeexiting SBC861. 


feeeowlLten transfer cable to next SBC. Go to A. 


fee RUN MULTIPROCESSOR SYSTEM 

meee Disconnect transfer cable from last SBC loaded. 

Eee connect J2 connector from each CRT to an SBC serial 
wert. 

Seeeeercer all CRI's connected, push RESET on frame to 
Drake baud rate. 

Peeeeen each CRT press "U" to obtain monitor. Will 
meooond with ".". 


i. Beoe se '’GIG0:40<er>" at each terminal to start 
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RTEX. If one of the SBC's is running only MCORTEX and no 


er processes, start it first. 
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APPENDIX B 


SYSTEM INITIALIZATION HARDWARE CONNECTIONS 


The following page contains a drawing of the hardware 
connections required for transfering code developed on the 
MDS 800 to the single board computers. The transfer cable 
has two parts, an RS232 cable and a 25 wire ribbon. 

The RS232 cable has a 25P connector that mates with the 
2400 baud 25S connector on the back panel of the MDS CPU. 
The other end is a 25S connector that will mate with the 25 
Wire ribbon. 

mae ribbon has a 255 connector for attachment to the 
cable. The other end is a 26 pin edge connector that will 
Mate with the J2 junction on the single board computer. J2 
is the serial port. The 26th pin is left unconnected on the 


edge connector. 
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NAME 
ATTRIB 
EOP Y 
BeceElE 
DIR 
peLxAMAP 
EOCOPY 
IDISK 
i B 
ees O 
RENAME 
BuBMIT 
TED 
LNK 
LNKP 
LOCK 


KORE 
KORE 


eel 4. 
Bevel. 
Revel? . 
eveL2. 


oC 1 
PROC 1 
EROC 
PROC 2 
BROC 3 
PROC 3 
PROCY 
PROC4Y 


APRENDEEA. C 


Peer metneemony LCESTING FOR KLINEF .A1 


SoA. 


REMARKS 
tj oe iwUGlipy. see Ref. 3 
f ¥ '" ? 
Ad ? tf f 
’ tt "1 '? 
| '! tf tf 
"t Bi Tf 'y 
rf ‘f tf Ad 
'f A] rt '! 
vt | tf 'f 
A TY ft 1? 
1% ? Tf *9 
fexmumecdimor. Not a [SiS<II utiltiy. 


Links MCORTEX modules. 
Links process modules. 
Locates MCORTEX relocatable file. 
Locates process relocatable files. 
User gate module source code. 


19 ? f ol ole t-rene 1? 
MOET ree gheloeie Bee base source code module. 
SOD yeec : 
om ikj¢ sak easy te DOCCeeS Seunce tlre tor 1st CPU. 
n A “ Omens CEU. 
1" " " " " for 3rd Ce. 
Compiler object BORNE Supe otile for 1st CPU. 
1h | ft tf 'f tf ond CPU P 
1" "! " " ‘f 'f 3rd CPilr 
MCORTEX initial process source code module. 
MCORTEX initial process object code module. 
M@OKtex relocatable code file. 


MCORTEX executable code module. 
Ernieer map file. 
RPeoecatory,map file. 
MCORTEX leveli source code module. 
1? tf Sb jeer tf tf 
i LEVEL Sounmec ©" i 
Op ject -." 2 
User SPOGEEE : source 
< object: « \ 
seurce " 
Sbiect., 
soumee 
Spectr, 
seucece " 
opmiect 
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Command file. 
Command file. 
Cmd file. 
Cmdr r ile. 





A] 


8: 


i” 5S source 
e soo vecr 


User relocatable code 


tt 


executable a 
relocatable : 
executable a 
relocatable " 
executable q 


baniker map f1 ie. 


tf 


ft 


tf sf 


BOocator " NM 


t? 


f 


v7 a | 


SBC down load program. 


? 


" 


Pie io 


tf 


rf 


Seheduler & interrupt handler 


language source code module. 


Seheduler & interrupt handler 
code module. 


a2 


ne eer. 


assembly 


ebyec eu 





Pv CuAteD DRE Ci@hemeeol ING FOR KLINEF. Bt 


NAME .EXT 
COPY 
DELETE 

DIR 

SBC861 
SBCIOC.LIB 
SBCIOS.LIB 
SBCIOL.LIB 
SB957A.020 
ASM86 
ASM86 .OVO 
ASM86 .OV1 
ASM86 .OV2 
PLM86 
PLM86 .OVO 
PLM86 .OV1 
PLM86 .OV2 
PLM86 .OV3 
PLM86 .OV4 
PLM86 .OV5 
PLM86 .OV6 
PLM86 .LIB 
LINK86 
LINK86.0VO 
LOC86 


REMARKS 


fos — i eee Ley . 


tt tf 


? +? 


MDS to iSBC86/12A down load program. 


ASM86 assembler. 


PL/M-86 compiler. 


Object code linker. 


Relocatable code locater. 
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APPENDIX D 


SECO ha ine 


No up to date information 
themes sc’s 
1] 


and 


me. monitor for 


meeerial in [Ref. and 


ies "E" (exit) a 


Appendix A. The remaining co 


were dealing with the SBC mo 


two dimensional address is sh 
digits need be displayed. 


Command 


MOA Z EL TZZZZ<\Cr> 
MOIAZ ZZ 22220 Z22z2<Cr> 


MONeZ 2 ZZ ZELZSCYr> 


mee OX KX Cr 


x <Cr> 


.cf{name]<er> 
BS2222 2222 


{Ref. 


MCG on MONTTOR 


on the down load program and 


was found. There is related 


See |) 9eto Ba=1o3) "only. 


load) commands are discussed in 


mmands are the same as if you 


heaeer. Only the form using the 


own below. Only Ssicnit icanc 


Meaning 


Parsley CONLeEMULS al. 2222 :2ZZZ. 
Displays ConGents starting at 
BMaee. Zeac tOrezzzzn bytes. 
Same rules as above,except 
bytiewcne decoded tm to basic 
assembly language. 


boads, C2, and FP with xxxxixxxx 


Displays current register 
Cenmeents. 

Change register contents. 
SUlIsmeGieIICe at ZZZZ2°ZZ2Z2Z. 
Manor rowed by 94". next byte is 
displayed for possible 
SUMSLAEUIE LO 8<er> Causes 
prompt for byte value. "," 

or <er> causes change to take 
effect with above rules still 
applying. 
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The MCORTEX MONITOR 


The MCORTEX monitor closely parallels the command 
Sseructure Cieeeene. obC. monitor . There are only three 
commands; display, substitute, and exit. Commands”) are 


evaluated on a character by character basis instead of 


Mearting until a buffer is filled. Once you are in the 
monitor, illegal characters are not accepted and pressing 
the wrong key will have no effect. If you enter the wrong 
command or address, follow through to start over. The full 


two-dimensional 8 hex character address must be specified. 


key. All commands are prompted for by a ".". See Chapter 
ry. 
Command Meaning 
maoOO0 :0000<er> PiSplayeone byte at O000;0000. 
tse auvonacically anserted. 
#FF Displayercn DYLeS Starting at 


VOOOC COCO Fen 1s maximum. Once 
last digit entered, formated 
display starts. 
-S0000:0000 _ pace causcneunrrenu contents Co 
be displayed as: "xxe". 
; Casues offset to be incremented 
and new address deisplayed. Same 
rules apply. 
<cia Returns monitor command prompt. 
After a space and the contents 
desired are displayed as: "xx-—". 
the same or a new byte value must 
be entered. 
00 
afew continue the Sequence to 
Hnemm@exu Location. A <er> will 
terminate it and return the prompt. 
.e ReuMimie caew seca bOmMCORTEX. This can 
be done in ANY order or not all for 
ae patekheular terminal. 
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Wie ENDAnXx 


Peoveoei i =— MCORTEX SOURCE CODE 


meeeonecnae Source code in EEVEL II is contained in file: 
Meee. sRC. It 1S compiled with the LARGE attribute. It is 
Mme Of the relocatable code modules in file: KORE.LNK. Me: 
is part of the executable code module in file: KORE. A 
memory map for this module is located at the end of Appendix 
ih . All operating system calls available to the user are 


located in this module. 
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Bae ee 8 Ae BE KE ee He Ae HE AE OK AE ARK OE BS SSK BS SS AE BE AE RE OK OE EE OK OE NE EK pose ee! 
Pere HEHE He NEE HERE IE AE AS 2 2 3 I BE EAE ERS BEE SIS IE AS AS AE IS SE AS STS AS OK AE Me HE AE AS AE AE IE IE 2S ao 
J OE CQ REA HEE HEME 2 IE BE HE NE HE BE BEDE HE IK EEE BE HE BE EAE HEE HE DYE HS AE IE AE DE AE OK CIE NE AE A BE AE AS NE OE AE AE EO / 
y= FILE: Leyeec.sec 
VERSION: RL ENE Me o-20-S2 
PROCEDURES 
DEFINED: GATESKEEBPER CREATESEVC 
READ AWAIT 
ADVANCE PRIEME 
eG tL CREATES PROC 
OUTSCEAR OUTSLINE 
OUTSNUM OUTS DNUM 
SENDSCHAR OUTSHEX 
RECVSCHAR INSCHAR 
INSNUM INSDNUM 
INSHEX 
meyrraaks: !!!1 CAUTION II! {11 CAUTION {121 !1! CAUTICNIT! 


IF NEW USER SERVICES Axe ADDED TO THIS MODULE 
OR CHANGES ARE MADE TO EXISTING ONES, MAKE 
SUae  neLOCK Chea FILS: KOns.MP2) IS CHECK- 
ED TO SEE IF THE LOCATION OF “GATESKEEPER’ HAS 
NOT CREANGED. THE ABSOLUTE ADDRESS OF THIS 
PROCEDURE HAS 3HEN SUPPLIED TO THE GATESMCDULE 
IN FILE: GATE.SRC. IF IT HAS CHANGED THE NEW 
ADDRESS SHOULD BE UPDATED IN FILE: GATE.SRC 
AND RECOMPILED. ALL USER PRCCESS&SS WILL EAVS 
TO BE RELINKED WITH FILE: GATE.OBJ AND 
RELOCATED. 


LITERAL DECLARATICNS GIVEN AT THE BEGINNING 
OF SEVERAL MODULES ARE LOCAL TO THE ENTIRE 
MODULE. HOWEVER, SOME ARE LISTED THE SAME 
IN MORE THAN ONE MODULE. THE VALUE AND 
THEREFORE THE MEANING OF THE LITERAL IS 
COMMUNICATSD ACROSS MODULE BOUNDARIES. 
“NOTSFOUND”’ USED IN LOCATESEVC AND 
CREATESEVC IS AN EXAMPLE. TO CHANGE IT IN 
ONE MODULE AND NOT THE OTHER WOULD KILL 
THE CREATION OF ANY NEW EYENTCOUNTS BY THE 
OS. 


ne 
p+ 4 


/ 
/ 


4 
[PERE RR RE RE AEE HE AEE BE OE OE AEE OE OE EAE BE AE HE EE AE RAE AE AE OE EE 2K OR OE EE OE SE RE 2 HE KS SAE AE AEE BSA AE AK AE OE AEE 
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[LEG DT BR HEHE BEA He He HEE IE AE IE AEE FE AE OE RE RE BRK RE HE FE OE AE HS A OK 2S AE AK A OE HK FeO IE IK FE OK AE AE AE OK EAC OE / 


L2SMODULE: DO; 


[Fe RRA EAE He HE Re I BM BE HH IE IE IK MEI EI I EAE SE AK A OE NESE EO SE HE OK AR AE Re OK A OE TE A SS IK OE OE IK AE ES / 
[RE ERE HB AE AE 2 AEE HS HR EE HEE ER BE OR SAE AE OE 9 AE FE 2 A a SE A BE A AE OE OE 2 8 EAR I AK OE EK EE AEE / 


/* LOCAL DECLARATIONS % / 
DECLARE 

MAXSCPU eee RAGE Y a1 Ore 

MAXSVPSSCPU ek A ely era 

MAXSCPUSSSSMAXSVPSSCPU LITERALLY aad «, 

FALSE LITERALLY “Gin. 

READY LITERALLY “a 

RUNNING LITERALLY CS 

WAITING LLP AL LY yy 

TRUE LITERALLY 7119", 

NOTSFOUND CHES IGE oleae 

PORTSCC LITERALLY ‘’@OCCH’, 

RESET le eenAD LY Se 

INTSRETURN Glen ALL Y Me sresh <5 
LB OG GM FFE BE BE AEE EE OE AE ARIE AEE AS AE AEE BC AES OE IRIE ACHE OE AE RE OE NE OE SE NE AE AE OE NE AE NE SK OK IE NE OE HE OE aE EE / 
/* PROCESSOR DATA SEGMENT TABLE % / 
y= DELARED PUBLIC IN MODULE “L1SMODULE’ 3 
/* IN FILE “LEVEL ‘ sy 
DECLARE PRDS STRUCTURE 

(CPUSNUMEBER BY DEE 

VPSSTART Brn 

VPSEND BYTE, 

VPSSPERSCPU Be, 

COUNTER WORD) EXTERNAL; 
LE D1 GB EM HE BER HE RE HEE HR HERE HE AK DE OE NE NET  A  ENE KS AC NE aK IC TIE A OE RE OK AE AK EK OK OK 2K KE OE / 
/* GLOBAL DATA BASE DECLARATIONS * / 
Te DFCLARED PUBLIC IN FILE ‘’GLOBAL.SRC’ % / 
/* IN MODULE’ GLOBALSMODUL2’ = // 
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Mme VE MAXSCPUSSSSMAXSVPSSCPU ) STRUCTURE 


(VPSID BYTE, 
ATE BYTE, 
VPSPRIORITY ALE 
EVCSTHREAD BYTE, 
BVCSAWSVALUE WORD, 
SS SREG WORD) EXTERNAL; 
DECLARE 
EVENTS BYEE EXTERNAL} 
DECLARE EVCSTBL (10€) STRUCTURE 
(EVCSNAMS BYTES, 
VALUE WORD, 
THREAD Bye ne) EXTERNAL; 
DECLARE 
SEQUENCERS BYTE EXTERNAL; 
DECLARE SEOSTABLE (100) STRUCTURE 
(SEOSNAME BYTE, 
SEQSVALUR WORD ) EXTERNAL; 
DECLARE 
NRSVPS( MAXSCPU ) BYTE REXTEENAL, 
NRSRPS BYTE EXTERNAL, 
HDWSINTSFPLAG (MAXSCPU )RBYTE EXTERNAL, 
GLOBALSLOCK BYTE EXTERNAL} 
/¥O1S6** HE DK AK AE AK HE AE ER EAR Tie NE OK OK AC He NE AE OE IE AE NS EIS OK OK OE ES AK NS OK AE EK OK TENE AE AK AE EAS AE OR AE AE AE / 
/* DECLARATION OF EXTERNAL PROCEDURE REFERENCES a, 
Ve DECLARED PUBLIC IN FILE “LEVEL1.SRC’ / 
/* IN MODULE “LEVELISMODULE’ i / 


VPSCHEDULER: PROCEDURE EXTERNAL; END; 
/* IN PILE “SCHED.ASM’ */ 


Bers? : PROCEDURE BYTE EXTERNAL; END; 

LOCATESZVC : PROCEDURE (EVENTSNAME) BYTE EXTERNAL; 
DECLARE EVENTSNAME BYTE; 

END; 

LOCATESSEO : PROCEDURE (SEQSNAME) BYTE EXTERNAL; 


DECLARE SEQSNAME BYTE; 
END; 
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[¥E DDD EH HEE BE HERE NEE AE RE EB HS A OE NS SEI ORI A BE REZ EB BR a BO SE OK EEE / 
/* DIAGNOSTIC MESSAGES (WILL EVENTUALLY BE REMOVED) a7 


DECLARE 
MSG16(*) BYTE INITIAL(’ENTERING PREEMT’ 13,12, °%"), 
MSG1i7(*) BYTE INITIAL( “ISSUING INTERRUPT! !’,13,16,°%"), 
Moc ies) BYTS INITIAR( ENTERING AWAIT’ .10,13,°%"), 
MSG19(*) BYTE INITIAL(’°ENTERING ADVANCE ’,18,13,°%’), 
MSG21(*) BYTE INITIAL(’°ENTERING CREATESEVC FOR 2%) 
MSG23(*) BYTE INITIAL(°ENTERING READ FOR EVC: $7) 
erie) BYTE INITIAL( ENDSRING TICKET’ ,13,10, °%") 
MSG25(*) BYTE INITIAL(°ENTERING CREATESSEQ 93%’), 
MSG26(*) BYTE INITIAL( “ENTERING CREATESPROC’,10,13,°%"), 
MSG27(*) BYTE INITIAL(1@,°ENTERING GATESKEFPER N= %7)3 


9 
9 
] 


DECLARES 
CR LITERALLY ‘@DH’, 
LF LITERALLY ‘’@AH’; 


[RE RERE RE RE HE HE AE ENE HE HE HE ERE EAE EAE AE NE TEE BE BE AE AE AK A Oe, A AE SE NE AE AE AE AE OE OS OE AE EE OR SEE AE KE OK OK AEE / 


PE DOG 1 A RM FE He HE AE AE AE AEA HEA IE NE NCAE Be AE NE ME 3K AK ACNE KS IK AE DK OE AE AC BK Ne KE SHEE NE AK NE IK Ae AK Oe EE KK a / 
[RE EEN ME NE AE AE BE ME HE AE AE AE HEE MAE EAE BE AK AE AE AE BE EAE BE AE SC OE ME BC A AE ENE AE HE EE AE ONE OE EK OE OO AE AE OE OS / 


/** GATESKEEPER PROCEDURE KLINEF 5-18-62 **/ 
[FR FE ERE BE HE RE NE HE BE AE HEHE BE OK AE NE NE AE NEA BE AK EAE RE HE OK BIE NE IK OE A OE OE BK AK OE OK OE OE OE AE EK 5 rd HE EO Be NEE REE AE / 
/* THIS PROCEDURE IS THE ENTRY INTO THES OPERATING = / 
/* SYSTEM DOMAIN FROM TEE USER DOMAIN. THIS IS THE % / 
hm ACCESS POINT TO THE UTILITY/SERVICE R0UTINES AVAIL~- a 
Py ASLE TO THE USER. THIS PROCEDURE IS CALLED BY TEE say / 
/* GATE MODULE WHICH IS LINKED WITH THE USER PROGRAM. 27 
/* IT IS THE GATE MODULE WHICH PROVIDES TRANSLATION i! 
/* PROM THE USER DESIRED FUNCTION TO THE FORMAT REQUIR- */ 
/* ED FOR THE GATEKEEPER. THE GATEKEEPER CALLS THE x / 
/* DESIRED UTILITY/SERVICE PROCEDURE IN LEVEL2 OF THE % / 
/* OPERATING SYSTEM AGAIN PERFORMING THE NECESSARY may 
/* TRANSLATION FOR A PROPER CALL. THE TRANSLATIONS ARE */ 
/* INVISIBLE TO THE USER. THE GATEKEEPER ADDRESS IS avd 
/* PROVIDED TO THE GATE MODULE TO BE USED FOR THE IN- s/f 
/* DIRECT CALL. oy, 
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ed a /, 
/* THE PARAMETER LIST IS PROVIDED FOR CONVENIENCE AND x / 
** oe NO FIXED MEANING, EXCEPT FOR ‘NV’. =) 
lis FUNCTION CODES PROVIDED BY GATE ey 
‘i YT RYTE VARIABLE FOR TRANSLATION yk 
/* wORDS WORD * / 
/* PTR POINTER VARIABLE FOR TRANSLATION say 
/*®G278** BH AE HE HERE AC AK HE AS AE AK AS AE HE HE AC HC HE AS HK BK NK AS KE OE EK IE OK AK EAS EK EE SOS IR OK SE OK OK HE OE OK * / 


GATESKEEPER: PROCEDURE(N, BYT, wORDS, PTR) REENTRANT PUBLIC; 


DECLARE 
Coes PY TE, 
WORDS WORD, 
PTR POINTER; 


/* I-0 SERVICES ARE NOT ACKNOWLEDGED FOR TWO REASONS: say 
ag 1. THEY ARE CALLED SO OFTEN THAT DIAGNOSTIC OUTPUT */ 
/* WOULD BE TOO CLUTTERED. 1 
/* Peet eee ooV ko  PHODUCSS 1-0 EYFECTS THAT 7 
/* ACKNOWLEDGE TESY ARE BEING CALLED. "i 


IF N < 8 THEN DO; 
CALL OUTSLINE(@MSG27); 
CALL OUTSNUM(N); 
CALL OUTSCEAR(CR); 
CALL OUTSCHAR(LF); 


END; 

DO CASE N3 ee 
CALL AWAIT(BYT,WORDS); jh 7 
CALL ADVANCE(BYT); ete a7, 
CALL CREATESEVC(BYT); [is P| 
CALL CREATESSEQ(BYT); eo) 
GA erokenr (BY T. PTR) ea ey, 
CALL READ(BYT, PTR); eee) 
CALL CREATESPROC (PTR); LO, P27, 
SALE PREEMPT( BYT ); nn 
CALL OUTSCHAR( BYT); {= 3 */ 
Sail OUTSLINE (PTR); /*® QQ */ 
CALL CUTSNUM(BYT)$ /* 19 */ 
CALL OUTSDNUM( WORDS); oe A 
CALL INSCHAR(PTR); /* 12 * 
CALL INSNUM(PTR); J® 15 */ 
CALL INSDNUM(PTR); LS 

OND; /* CASE */ 

POE TURN; 


END; /* GATESKEEPER */ 
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[GBB 7 AE AE ATE AE AE HE AE AEE BE EAE BE AE ETE A EA OK OK AEB AE BR AR AE OK Oe NC IR BE IE AK BE HE AE EE BE OE OE AE AT OE RE OK / 


Pe GREATES SVENTCOUNT FOR INTER-PROCESS SYNCHEONIZATION. */ 


/* EVENTCOUNT IS INITIALIZED TO @ IN THE EVENTCOUNT TABLS.*/ 
[9 REET ETERS BE HOE TET A EE ENE NC AE EC 2 a RC ICES AE A 2 BE a 2 aR aK AE a Sk aK Re a aK HE A / 


CREATESEVC: PROCEDURE(NAME) REENTRANT PUBLIC; 
DECLARE NAME BYTE; 


CALL OUTSLINE(@MSG21); 
CALL OUTSNUM(NAME); 
CALL OUTSCHAR(CR); 
Peo OUTSCHAR(LF); 


/* ASSERT GLOBAL LOCK */ 
TO WHILE LOCKSET(@GLOBALSLOCK ,119)3 END; 


IF /* THE EVENTCOUNT DOZS NOT ALREADY EXIST */ 
LOCATSSEVC(NAME) = NOTSFOUND THEN DO; 
/* CREATE THE EVENTCOUNT ENTRY BY ADDING THE */ 
/* NEW EVENTCOUNT TO THE END OF THE EVCSTARLE */ 
EVCSTBL( EVENTS). EVCSNAME = NAMB; 
EVCSTBL(SVENTS).VALUE = @;3 
EVCSTBL(EVENTS).THREAD = 255; 
/* INCREMENT THE SIZE OF THE EVCSTABL= */ 
EVENTS = EVENTS + 13 

END; /* CREATE THE EVENTCOUNT */ 

/* RELEASE THE GLOBAL LOCK */ 

PROSBALSLOCK = @; 

RETURN; 

END; /* CREATESEVC PROCEDURE */ 


ae 





1 D4 QB AE AE HE AE HE A AEE EE EAE AR HE HE AE EE AE AES A BS OO FE DES BK OK ACI AE FE AE He OEE AE KT OK OE / 


aa READ PROCEDURE KEINEF S-i23-62e */ 
Bc ce a ee ae a a ee a ee ee a 7 
i THIS PROCEDURE ALLOWS USERS TO READ THE PRESENT VALUE */ 
/* OF THE SPECIFIED EVENTSCOUNT WITHOUT MAKING ANY says 
J~ CHANGES. A POINTER 15 PASSED TO PROVIDE A BASE TO A 7 
/* VARIABLE IN THE CALLING ROUTINE FOR PASSING THE RETURN *¥/ 
/* VALUES BACK TO THE CALLING ROUTINE. 7, 


[FE EEE He A He HE He eH He eH a Me HE IE He MEI NEE ACNE 2 HE AE Ne AE AS AE IS NEE ENE OK 


READ: PROCEDURE( EVCSNAME, PETSSPTR ) REENTRANT PUBLIC: 


DECLARS 
EVCSNAME Berks 
EVCTBLSINDFX 15)3¢ Tyg - 
RETSS PTR POINTER, 
EVCSVALUESRET BASED RETSSPTR WORD; 


/* SET THE GLOBAL LOCK ¥*/ 
DO WHILE LOCKSET(@GLOBALSLOCK ,119); =ND; 


CALL OUTSLINE(@MSG25) 5 
CALL OUTSNUM(EVCSNAME); 
CALL OUTSCEAR(CR): 
CALL OUTSCHAR(LF); 


pee OBTAIN INDEX */ 
EVCTBLSINDEX = LOCATESEVC( EVCSNAME ); 


/* OBTAIN VALUE */ 


EVCSVALUESRET = EVCSTBL( EVCTBLSINDEX ) .VALUE; 


y* UNLOCK Oe ere DOCK «/ 
GLOBALSLOCK = @ 
RETURN; 


END; /* READ PROCEDURE */ 


23 


BAR FEE RE OE OK OE AE ARO BE AS HE AE TE BE AE / 





[GAG QE AE REE HE IR A 9 ES BE DK BK BRK CE aE IE A AE IE BE OE A Ba AK OK HE HE OK aE SI SOK NE HE OIC aE / 


y= AWAIT PROCEDURE 


/* INTER PROCESS SYNCHRONIZATION PRIMITIVE. SUSPENDS 
/* BXECUTION OF RUNNING PROCESS UNTIL THE EVENTCOUNT BAS 


/* REACHED THE SPECIFIED THRESHCLD VALUE, AWAITEDSVALUE. * 


/* USED BY THE OPERATING SYSTEM FORK THE MANAGEMENT OF 


/* SYSTEM RESOURCES. 
[FREI RHEE HE HEHE EH EAE OH HE HERE AH HEI TE BE HE A AE BO EE EE OA RENE RE BE SEB ae a OK As 


AWAIT: PROCEDURE(EVCSID,AWAITEDSVALUE) REENTRANT PUBLIC; 


DECLARE 
AWAITEDSVALUE WORD, 
(EVCSID, NEEDSSCHED, RUNNINGSVP,EVCTBLSINDEX) BYTE; 


CALL OUTSLINE(@MSG18); 


/* LOCK GLOBAL LOCKE */ 
DO WHILE LOCKSSET(@GLOBALSLOCK, 119); END; 
NEZDSSCEED = TRUE; 


/* DETERMINES THE RUNNING VIRTUAL PROCESSOR */ 
RUNNINGSVP = RETSYP; 


/*® GET EVC INDEX */ 

EVCTBLSINDEX = LOCATESEVC(EVCSID); 

/* DETERMINE IF CURRENT VALUE IS LESS THAN THE 
AWAITED VALUE */ 

TF EVCSTEL(EVCTBLSINDEX) .VALUE < AWAITEDSVALUE THEN DO} 
/* BLOCK PROCESS ¥*/ 
VPM(RUNNINGSVP).STATE = WAITING; 
VPM(RUNNINGSVP) .EVCSTEREAD=EVCSTBL( EVCTBLSINDEX) .THR 
VPM(EUNNINGSVP). EVCSAWSVALUS = AWAITEDSVALURE; 
EVCSTBL( EVCTBLSINDEX ).THREAD = RUNNINGSVP; 
END$ /* BLOCK PROCESS */ 

ELSE /* DO NOT BLOCK PROCESS */ 
isos SCHeD = FALSE; 


/* SCHEDULE THE VIRTUAL PROCESSOR */ 
IF NEEDSSCHED = TRUE THEN 
CALL VPSCREDULER; /* NO RETURN */ 


/* UNLOCK GLOBAL LOCK */ 
GLOBALSLOCK = @; 
RETURN S$ 

END; /* AWAIT PROCEDURE */ 
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[DSB SEH HH BM ERE RS a AA AEA A OE RK a a HE OES OE 2 ES 2K aK RENE BR NE A A OK AO SHS RE SE AE OE ES / 
/* ADVANCE PROCEDURE KLINEF £-19-82 ¥*/ 


a a ee cae ee ce ee ae ed ee ae ee Se ee ee et ee ed ee 


x / 
/* INTER PROCESS SYNCHRONIZATION PRIMITIVE. INDICATES a 
/* SPECIFIED EVENT BAS OCCURED BY ADVANCING(INCREMENTING) ¥/ 
/* THE ASSOCIATED EVENTCOUNT. EVENT IS BROADCAST TO ALL */ 


/* VIRTUAL PROCESSORS AWAITING THAT EVENT. my! 
I mn rn rr F/ 
/* CALLS MADE TO: OUTSLINE a fh 
/* VPSCHEDULER (NO RETURN) x / 


[9B FE PERE AE AE AE HE MEAS HEE HE A AE HE I AE A BRIE HE IE BE HE A A A IE AE OK OE NE AE OE Oe AE IE AK A SIC AE SE AE TE Se BETS ENE A OE NE EE / 


ADVANCE: PROCEDURE(EVCSID) REENTRANT PUBLIC; 


DECLARE 
(EVCSID, NEEDSSCHED, NEEDSINT2, EVCTBLSINDEX) BYTE, 
(SAVE, RUNNINGSV?, I, CPU) BYTE; 


CALL OUTSLINE(@MSG19); 


/* LOCK THE GLOBAL LOCK */ 
mo WHILE LOCKSET(@GLOBALSLOCK ,119); ND; 


RUNNINGSVP = RETSVP; 
MmYCTBLSINDEX” = LOCATESEVC( EVCSID); 


EVCSTBL( EVCTBLSINDEX) .VALUE=EVCSTBL(EVCTBLSINDEX) .VALUE + 135 


NEEDSSCHED = FALSE; 

NEEDSINTR = FALSE; 

SAVE = 2553 

I = EVCSTBL( EVCTBLSINDEX ).THREAD; 
MOMWRILE I <> 255; 

IF VPM(I).EVCSAWSVALUB <= EVCSTBL(EVCTBLSINDEX).VALUE 
THEN DO; /* AWAKEN THE PROCESS */ 
VPM( 1) STATE = READY; 

VPM(I).EVCSAWSVALUEB = 23 

CPU = I / MAXSVPSSCPU ; 

Lh SAVE = 225 TEEN DO; /*THIS FIRST ONE IN LIST*/ 
EVCSTBL( EVCTBLSINDEX ). THREAD=VPM(I) .EVCSTHREAD} 
VPM( I ).EVCSTHREAD = 255; 

I = EVCSTBL( EVCTBLSINDEX ). THREAD; 
END$ /* IP FIRST */ 
ELSE DO; /* THEN THIS NOT FIRST IN LIST */ 
VPM( SAVE ).EVCSTHREAD = VPM( I ).EVCSTHREAD; 
VPM( I ).EVCSTHREAD = 255; 
I = VPM( SAVE ).EVCSTHREAD; 

END; /* IF NOT FIRST *¥*/ 

IF ( CPU <> PRDS.CPUSNUMBER ) THEN DO} 
HDWSINTSFLAG( CPU ) = TRUE; 

NEEDSINTR = TRUE} 
END; 
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ELSE NEEDSSCRED = TRUE; 
END; /*®* ITP AWAKEN */ 
ESO; /* DO NOT AWAKEN THIS PROCESS */ 
SAVE = I3 
I = VPM( I ).EVCSTHRE&AD; 
END; /* ITF NOT AWAKEN */ 
END; /* DO WHILE */ 
IF NEEDSINTR = TRUE THEN DO; /* HARDWARE INTR ¥*/ 
CALL OUTSLINE( @MSG17 ); 
DISABLE; 
OUTPUT(PORTSCC) = 80H; 
Cre ied ) 3 
OUTPUT(PORTSCC) = RESET; 
ENABLE; 
END; /* NREDSINTR */ 
IF NEEDSSCHED = TRUE THEN DO; 
VPM(RUNNINGSVP).STATE = READY; 
CALL VPSCHEDULER; /* NO RETURN */ 
END; /* IF NEEDSSCHED */ 
/* UNLOCK THE GLOBAL LOCK */ 
GLOBALSLOCK = @;3 
RETURN; 
END; /* ADVANCE PROCEDURE */ 
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JF DEE 7 EM ERE EE HE RE RH I HERE IE RE HE A BR BE HE I HEB A AE 2K A OK 2 A SEE OE EE OK IK BK A Re OK HE DE aE OC / 


/* 


PREEMT PROCEDURE oe S—-19—-e2 */ 
eS ee ee a a a a * 
THIS PROCEDURE AWAKENS A HI PRIOITY PROCESS LEAVING /. 
THE CURRENT RUNNING PROCESS IN THE READY STATE AND a7 
CALLS FOR A RESCHEDULING. THE HIGH PRICRITY PROCESS * / 
SHOULD BLOCK ITSELF WHEN FINISHED. aye 

IF THE VP$ID IS ’FE° OR THE MONITOR PROCESS, IT WILL */ 


/* MAKE IT READY WHERE-EVEx IT IS IN THE VPM. THE FOLLOW-*/ 
/* ING CODE DOES NOT TAKE ADVANTAGE OF THE FACT THAT ay, 
/* CURRENTLY IT IS THE THIRD ENTRY IN THE VPM FOR EACH * / 
/* REAL PROCESOR. say 
/* CALLS MADE TO: OUTLINE, YPSCHEDULER ay 


[RE FE AE Be HEE HK A AE 28 BE AEE BE 3 RE NS HRA BE HE SE AE OE ASE OK AK OE SRE ASAE BK OH OE AE OE AEE BEAK AK EAE AE AE OS OK OK OE OS BE OE / 


PREEMPT: PROCEDURE( VPSID ) REENTRANT PUBLIC: 


DECLARE (VPSID,SEARCHSST,SEARCHSEND,CPU,INDEX) BYTE; 


CALL OUTSLINE( @MSG16 ); 
IF VPSID <> OFEH THEN DO; /* NORMAL PREEMT */ 
/* SEARCH VPM FOR INDEX FOR ID */ 
SEARCHSST = @; 
DO CPU = @ TO (NRSPPS —- 1); 
SEARCHSEND = SEARCESST + NRSVPS( CPU ) - 1 $5 
DO INDEX = SEARCHSST TO SEARCHSEND; 
IF VPM( INDEX ).V¥YPSID = VPSID THEN GO TO FOUND; 
ENDs /* DO INDEX */ 
SEARCHSST = SEARCHSST + MAXSVPSSCPU; 
END; /* DO CPU *¥/ 
/* CASE IF NOT FOUND IS NOT ACCOUNTED FOR CURRENTLY *¥/ 
FOUND: 
/* LOCK TFE GLOBAL LOCK */ 
DO WHILE LOCKSSET(@GLOBALSLOCK ,119); END; 
/* SET PREEMPTED VP TO EBADY */ 
VPM( INDEX ).STATE = READY; 
/* NEED HARDWARS INTR OR RE-SCHED */ 
IF ( CPU = PRDS.CPUSNUMBER ) THEN DO; 
INDEX = RETSVP; /* DETERMINE RUNNING PROCESS */ 
VOMCINDSk ).STATE = READY; /* SET TO READY */ 
CALL VPSCHEDULER; /* NO RETURN */ 
END; 
ELSE DQ; /* CAUSE EARDWARE INTERRUPT */ 
CALL OUTSLINE(@QMSG17);5 
HDWSINTSFLAG( CPU ) = TRUS; 
DISABLE; OUTPUT( PORTSCC ) = a8@4; 
CALL LIMS( 1); 
oe POMESCC)) = ReoeTt; ENAELE; 
END; 
END: /* NORMAL PREEMT */ 


oi 





ELSE DO; /* PREEMT THE MONITOR */ 
/* SRARCH pas FOR ALL ID’S OF OFEH ¥*/ 
SEARCESST = 
DO WHILE WeGRec ETCELORAL LOCK. 119); END; 
DO CPU = @ TO (NRSRPS - 1); 
SEARCESEND = SEARCHSST + NRSVPS( CPU ) - 13 
/* SET ALL INTSFLAGS EXCEPT THIS CPU’S */ 
IF PRDS.CPUSNUMBER <> CPU TEEN 
HDWSINTSFLAG( CPU ) = TRUE; 
DO INDEX = SEARCHSST TO SEARCHSEND; 
IF VPM( INDEX ).VPSID = VPSID THEN 
VPM( INDEX ).STATE = READY; 
END; /* DO */ 
SEARCHSST = SEARCHSST + MAXSVPSSCPU; 
END; /* ALL MONITOR PROCESS SET TO READY */ 
/* INTERRUPT THE OTHER CPU’S AND 
RESCHEDULE THIS ONE * / 
CALL OUTSLINE(@MSG17); 
DISABLE; 
OUTPUT( PORTSCC ) = 8983 
GAM te oT Pe (1); 
OUTPUT( PORTSCC ) = RESET; 
ENABLE; 
INDEX = RETSVP; 
VPM(INDEX).STATE = READY; 
CALL VPSCHEDULER; /* NO RETURN */ 
END; /* ELSE 
/* UNLOCK GLOBAL MEMORY */ 
GLOBALSLOCK = @}3 
RETURN} 
END} /* PREEMPT PROCEDURE */ 
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J BQ QR RE HR AE A a HE RE AER ER AER EA RE AE 2 BK SEAS 2 BK AE RC OK REE RK A 2 Rea AE Be Rea Be aC 2 RE aE aK aK / 
Le CORATTSSTQ PROCEDURE KLINEF 5-2¢-82 x / 
ee ee ee oe oe oe es a ae ae ae oe re an aes aman an an a a> an ean ae an wn anew Ae 
/* CRSATOR OF INTER PROCESS SEQUENCER PRIMITIVES FOR USER */ 
/*® PROGRAMS. CREATES A SPECIFIED SEQUENCER AND INITIAL- */ 
/* IZES IT TO @, BY ADDING THE SSQUENCER TO TZE END OF THE*/ 
/* SEQUENCER TABLE. a / 


eens terme ene Se eS -_----__%/ 
/* CALLS MADE TO: OUTSLINE OUTSCHAR * / 
[# OUTSHEX  / 


[8 EE HEE REE HE OE HE A IE HE BE A HAE HE A AEA AE BE IRAE BK ARSE HE EE IE OE NE BR BE BK OE AE RS OS AE He EAE TTR EE AK NC 2 OK OK XK 3 / 


CREATESSEQ: PROCEDURE(NAME) REENTRANT PUBLIC; 
DECLARE NAME BYTE; 


/* ASSERT GLOBAL LOCK */ 
DO WHILE LOCKSET(@GLOBALSLOCK ,119); SND; 


CALL OUTSLINE(@MSG25)} 
CALL OUTSHEX(NAME)3 
CALL OUTSCHAR(CR); 
CALL OUTSCHAR(LF); 


IF /* THE SEQUENCER DOES NOT ALREADY EXIST, IE */ 
LOCATESSEQ(NAME) = NOTSFOUND THEN DO; 
/* CREATE THE SEQUENCER ENTRY BY ADDING THE */ 
/* NEW SEQUENCER TO THE END OF THE SEQSTA3BLE */ 
SEQSTABLE (SEQUENCERS ) .SEQSNAME = NAME; 
SEQSTABLE(SEQUENCERS) .SEQSVALUE = @3 
/* INCREMENT NUMBER OF SEQUENCERS */ 
SEQUENCERS = SEQUENCERS + 1; 

END; /* CREATE THE SEQUENCER */ 

/* RELEASE THE GLOBAL LOCK */ 

GLOBALSLOCK = @; 

RETURN; 

END; /* CREATESSEQ PROCEDURE */ 
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LED EG BRM AE FE ERE HE HE BE EO A AAC OE OE AEE BE AE FE OR RC ME ACS BE AK Ses OE OS BIE A AE AE OE ETE BE AK HE AC OE SEE OE OE EE EA OK / 


/* TICKET PROCEDURE KLINEF 5-29-82 % / 
[mmm rr ree 

/* INTER-VIRTUAL PROCESSOR SEQUENCER RPIMITIVE FOR USER */ 
/* PROGRAM. SIMILAR TO TAKE A NUMBER AND WAIT. RETURNS*/ 
/* PRESENT VALUE OF SPECIFIED SEQUENCER AND INCREMENTS THE*/ 
/* SEQUENCER. A POINTER IS PASSED TO PROVID® A BASE TO A */ 
/*® VARIABLE IN THE CALLING ROUTINE FOR PASSING THE HETURN */ 
he VALUE BACK TO THE CALLING ROUTINE. "y 
/* CALLS MADE TO: OUTSLINE % / 


[FERRER HE HE TE HE AE HE OE HS A ERE BE EAE EE BEE ERE AE AE DE AK BE EE IE A EC EE HE ENE AE SEK EE EK NE KK OE / 


TICKET: PROCEDURE( SEQSNAME, RETSSPTR ) REENTRANT PUBLIC; 


DECLARE 
SEQSNAME OI Ide 
SEQTBLS INDEX Bits, 
RETSSPTR PON eh, 


SEQSVALUESRET BASED RETSSPTR WORD; 


/* ASSERT GLOBAL LOCK */ 
DO WHILE LOCKSET(@GLOBAL$LOCK,119)$ END; 


CALL OUTSLINE(@MSG24) ; 


/* OBTAIN SEQSNAME INDEX #*/ 

SEQTBLSINDEX = LOCATESSEQ( SEQSNAME ); 

/* OBTAIN SEQUENCER VALUE ¥*/ 

SEQOSVALUESRET = SHQOSTABLS( SEQTBLSINDEX ) .SBOSVALUE; 

/* INCREMENT SEQUENCER */ 

SEQSTABLE( SEQTBLSINDFX ).SEQSVALUE = 
SEQSTABLE(SEQTBLSINDEX) .SSOSVALUR + 1 3 


/* UNLOCK THE GLOBAL LOCK */ 
GLOBALSLOCK = @ ; 
RETURN s+ 


END; 7 TICKER PROCEDURE */ 
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ee ee FE OR SI RE 3 AO 2 HE BK AR AGE AEE OI HE AER AE HS AE OE RE ORE RE REDE BE SK NCE AK / 
CREATESPROC PROCEDURE XLINEF 5- 20- B82 7, 
te ass I ay 
/* THIS PROCEDURE CREATES A PROCESS FOR THE USER AS 7 
/*® SPECIFIED BY THE INPUT PARAMETEPS CONTAINED IN A = 
/* STRUCTURE IN THE GATE MODULE. THE PARAMETER PASSED % / 
/* IS A POINTER WHICH POINTS TO THIS STRUCTURE. * / 
/* INFO CONTAINED IN THIS STRUCTURE IS: PROCESS ID, ai! 
/* PROCESS PRIORITY, THE DESIRED PROC STACK LOCATION, * / 
/* AND THE PROCESS CODE STARTING LOCATION WHICH IS so: 
/* IS TWO ELEMENTS: THE IP REGISTER (OFFSET) AND THRE * / 
/* CS REGISTER (CODE SEGMENT). % / 
ee ee  __ _ --_ - x6 / 
/* CALLS MADE TO: OUTLINE x / 


[FERRE AE EERE HE EA 98 AE AE RAR HE AE HE RE REA AEH BEE OE A Be BK OE BE BO AE OE BC AE EE NE EE AE AS OK ES 2K A A IE AE aK a aE / 


CREATESPROC: PROCEDURE( PROCSPTR ) REENTRANT PUBLIC; 


DECLARE 
RAOCSPTR POINTER, 
PROCSTAS EN emo SD PROCSPIR STRUCTURE 
(PROCSID BYTE, 
PROCS PRI 2 Bigs 
PROCSSTACKSSEG WORD, 
PROCSIP WORD, 
PROCSCS WORD); 
DECLARE 
eo lt, PS2Z) WORD, 
TEMP BYTE; 


DECLARE PROCSSTACKSPTR POINTER AT(G@PS1), 
PROCSSTACK BASED PROCSSTACKSPTR STHUCTURE 


(SP WORD, 
BP WORD, 
RETSTYPE WORD, 
LENGTH ( OFES ) BYTE, 
DI WORD, 
SI WORD, 
DS WORD, 
DX WORD, 
Cx WORD, 
AX WORD, 
BX WORD, 
ES WORD, 
IP WORD, 
cs WORD, 
FL WORD); 


CALL OUTSLINE(@MSG26) ; 


To 





PoeelO Ser Ur PROCSSTACKSPTR */ 
PS1 = QO; 
PS2 = PROCSTABLE. PROCSSTACKSS EG; 


PreGoslaACK.IP 
PROCSSTACK.CS 
BOC SSoACK. 2 L 


PROCSTABLE.PROCSIP; 
PROCSTABLE.PROCSCS: 


PROCSSTACK.SP = 1044; 
PROCSSTACK.BP = @;3 
PRECGCSTACK.RETSTYPE = INTSRETUERN: 
PROCSSTACK.DI = @; 
PROCSSTACK.SI = @3 
PROCSSTACK.DS = @; 
PROCSSTACK.DX = @; 
PROCSSTACK.CX = O35 
PROCSSTACK.AX = @3 
PROCSSTACK.BK = @; 
PROCSSTACK.ES = @3 


/* SET GLOBAL LOCK */ 
DO WHILE LOCKSET(@GLOBALSLOCK ,119); END; 


IF PRDS.VPSSPERSCPU < MAXSVPSSCPU THEN DO; 
TEMP = PRDS.VPSSPERSCPU + PRDS.VPSSTART; 
VPM( TEMP ).VPSID = PROCSTABLE.PROCSID; 
VPM( TEMP ).STATE = @1;3 /* READY */ 
YVPM( TEMP ).VPSPRIORITY = PROCSTABLE.PROCSPRI; 
¥PM( TEMP ) .EVCSTEREAD = 255; 
VPM( TEMP ).EVCSAWSVALUE = @;3 
VPM( TEMP ).SSSREG = PROCSTABLE.PROCSSTACKSS2G; 


PRDS .VPSSPERSCPU = PRDS.VPSSPERSCPU + 13 
PRDS.VPSEND = PRDS.VPSEND + 13 
NRSVPS( PRDS.CPUSNUMBER ) = 
NRSVPS(PRDS .CPUSNUMBER) + 1; 
END; /* DO ¥*/ 


/* RELEASE THE GLOBAL LOCK */ 
GLOBALSLOCK = @; 
RETURN: 


END; /* CREATESPROCESS */ 


20G6H; /*SET IF FLAG (ENABLE INTR)*/ 





[®VE BHR RE HE RE RE RE HE OE HE EAR A OR AE RE BK OK ORE OK a SHE BK OK OK SE AK OK a EK aE BE EE a / 


i INSCHAR PROCEDURE KLINEF 5-22-82 */ 
/* ene eee eee SS ee ee ee ee en xe / 
/*®* GETS A CHAR FROM THE SERIAL PORT. CHAR IS !!!NOT!I!! * / 


/* ECHOED. THAT IS RESPONSIBILTY OF USER IN THIS CASE. */ 
/* INPUT TO SERIAL PORT VIA SBC861 DOWN LOAD PROGRAM MAY * 


/* NOT BE ACCEPTED.  / 
/* POINTER IS PROVIDED BY USER SO FE CAN BE RETURNED TEE */ 
/*® CHARACTER . % / 
[8 an nn a a nn ne a ne  -  - - -  / 
/* CALLS MADE TO: RECVSCAHR ay, 


J FEE FE ME HE HR IE ME IB HR BE HEHE AE HE HE I HE HE ERE HE AE BEAK Be BENE AE HIE RE ARE AK EE NE A OE Oe BIE Se EE OE SK OES AE EE BEE SE / 


INSCHAR: PROCEDURE ( RETS$PTR ) REENTRANT PUBLIC; 


DECLARE 
RETSPTR POINTER, 
INCHR BASED RETSPTR BYTE; 


DISABLE; 
INCHR = RECVSCHAR; 
ENABLE; 
RETURN; 
END; /* INSCHAR */ 


LEV GO 4, HEM EAE HK BE HS HEE Be ERE NE EE AE OE HS AE AE BE AE HE AE A BIE BH OE OK OE OE OE BE AK NE OE AE OE SC OK OK EE BE OE AE HE OE OK IE / 
/* _INSNUM PROCEDURE KLINEF 5-22-62 : 


/* GETS TWO ASCII CHAR FROM THE SERIAL PORT, EXAMINZS * / 
/* TEM TO SEE IF THEY ARE IN THE SET @..F HEX AND FORMS */ 
Meoees SYTS VALUS. EACH VALID BEX DIGIT IS BCHCED TO TUE */ 
/* CRT. IMPEOPER CHAR ARE IGNORED. NC ALLOWANCES ARE sf 
/* MADE FOR WRONG DIGITS. GET IT RIGHT THE FIRST TIME. */ 
9V= IF YOU ARE INDIRECTLY ACCESSING THE SERIAL PORT VIA of. 


/* THE SBC861 DOWN LOAD PROGRAM FPOM THE MDS SYSTEM a // 
/* INPUT MAY NOT BE ACCEPTED. A POINTER IS PASSED RY TH=*/ 
/* USER SO THAT HE RETURNED THE CHARACTER. ** / 
/* 0 oe Se ee eS SS SS eee ee a a ne / 
/* CALLS MAD® T0: INSEEX ai. 


[78 FR AR AE AE REDE BE TE BE RS AE HE AE AE AK OE A OEE BK BEN 2 SR Se FE ONC EK SK AK RE AE OE Be RE OK BK A EA OE SE BE AE RE EK FE AE OK SE OE / 


INSNUM: PROCEDURE ( RETSPTR ) REENTRANT PUBLIC; 
DECLARE 
RETSPIR POINTER, 
NUM BASED RETSPTR BYTE; 


DISABLE; 
NUM = INSHEX; 
ENABLE; 
RETURN; 

END; /* INSNUM */ 


WS) 





PELL D QRH REE RAE RE HAE BK IK RE AKA AE BE AE RE EAC FE AE IE FE NE SI AE AS AS OIE EAC DEE EAE DE OE EE OE AE NE ONE RE OK He E/ 
[PERE AER RE TR HE OR BE HE AR HE IE HE HE RC AE AEE NE 3S 9 A AE AE AC NE AE AS AE NC RE AE AE NE AC AE AE AE AE HET A OS OE ACE OE EE OE EA OK / 


a OUTSCHAR PROCEDURE Coes o=cy—eZ y 
ee ae ee oe ee oe a oe es es ee oe ae oe aman ar ae en ee ae ae ee ow ew ww we oe ee ‘4 
/* SENDS A BYTE TO THE SERIAL PORT sf, 
AE me a a a a a a a ee a a a renee f 
/* CALL MADE TO: SENDSCHAR oy/ 


[FF HEBER ERE HE HE HE HE HE HE HE HE AE IE BE BERK RE HE IC A EE BIE IE SE I 2 ONE SE BE IE AE SE ES SK 2 IK EE SE OK 2 RE XS / 


OUTSCHAR: PROCEDURE( CHAR ) REENTRANT PUBLIC; 
DECLARE CHAR BITE; 


DISABLE; 
CALL SENDSCHAR( CHAR ); 
ENABLES 
RETURN; 
END; 


LEY YS BRR A HR ME A AE BEE AK AE A AS AEE RE OE EE EE OR IE SE OK EE EE AE AE OI KE AR A Ie AE OE EE AE / 
ye OUTSLINE PROCEDURE KLINEF 5-20-62 * / 
/* a a es cm es ee ee ee we we we ee ee x / 
/* USING A POINTER TO A BUFFER IT WILL OUTPUT AN ENTIRE ¥*/ 
/* LINE THRU THE SERIAL PORT UNTIL AN °%’ IS ENCOUNTERED */ 
/* OR 8@ CHARACTERS IS REACHED--WHICH EVER IS FIRST. CR°S*/ 


/* AND LF’S CAN BE INCLUDED. a / 
[18 en nn a nn nn nn + SS ee eS eae ae 
/* CALLS MADE TO: SENDSCHAR % / 


[PB FE ARTE BE FE HE RAE HE HE HE BE OE IE AE HE He EK HR TE KE OE IE EE OE OK IC IC EE I EE OG OE EK BC OK ES CO OK KK XE / 


OUTSLINE: PROCEDURE( LINESPTR ) REENTRANT PUBLIC; 


DECLARE 
BINESPTR POINTER, 
LINE BASED LINESPTR (80) BYTE, 
It BYTE; 


DISABLE; 

femll = @ T0 79; 
Boecinee Ii }) = “%° TERN GO TO DONE; 
CALL SENDECHAR( LINE( II ) )3 

END; 

DONE: ENABLE} 

RETURNS 

END; 
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se CS 





[EYL SRM EER AEE RE Oe Re Be OE RHEE He a A HE SR SK BE OK SK ASHE 2 SK NEE aK ESR OK aR IC HE a I a a I a DAE i / 
/* OUTSNUM PROCEIURE KLINEF Seeo-ce  */ 
[% ~------- -- - - - --- - + -- -- - = - - + = -- + + 5 -- + = ---- = = + x / 
fo OUTPUTS A BYTE VAULE NUMBER TH°U THE SERIAL PORT m/f 

~---~-—--~~- ~~ --- - - = + 5 + +--+ ++ x / 
ye CALLS MADE TO: OUTSHEX sad 


J HEH HR HE HOE HE RR A HERE A RE A EE a a ce ok AE ak a 9 2s a a aE OK a a a aR a aK ae a ae ae a a a / 


OUTSNUM: PROCEDURE( NUM ) REENTRANT PUBLIC; 
DECLAFE NUM BYTE; 


DISABLES 
CALL OUTSHEX( NUM ); 
ENABLES 
RETURNS 
ENDs 


LEY 21 BRE AEE RE HH HE EE AE EE I REC RE HE SK AE 2 FE BE OK OE AE BR AE OK RK CH A EE EK OK A a 2 / 


/* INSDNUM PROCEDURE KLINEF 5-22-82 2% / 
/* I te cree a a sc a ee le ae ew ae Oe ee oe ee ee ee ee iY 
/* GETS FOUR ASCII FROM SERIAL PORT TO FORM WORD VALUE. * / 
/* CRITERIA ARE THE SAME AS IN PROCEDURE INSNUM. aye 
/* (2S Se SS SS SS SS SS SS = SS SS SS SE ee oe / 
/* CALLS MADE TO: INSHEX ays 


[EE ERE EEE BE MS BK AE ACHE HE BE IE AE OE BE BEE AE AS ARE OE IK OE HE OE TE OE SRE HE OE AE OE I SEK A NE He I OE EE AE SOE TE ETE AE / 


INSDNUM: PROCEDURE ( RETSPTR ) REENTRANT PUBLIC; 


DECLARE 
RETSPTR POINTER, 
DNUM BASED RETS$PTR WORD, 
(H, L) WORD; 


DISABLE; 

H INSHEX; 

q Soil H, 8 )s 
L = INSHEX; 
DNUM = (H OR L):; 
ENABLES 

RETURN; 

END; 


Os 





A 2 Re Ae ei AE 5 RE OS HE Oe HOHE HE AE AE AE Oe AEH Se Sat OE AE AR EK OE ROI NEE I IS IE NC aS HE A ENE / 


leg OUTSDNUM PROCEDURE KLINEF 5-29-€2 ay 
mee ee = - - -  -  -  F / 
/* OUTPUTS A WORD VALUE NUMBER VIA THE SERIAL PCRT a / 
SIE ee ce ee wee me ee ee ee ee a we a ee ee es ae = ee = = * / 
yo CALLS MADE TO: OUTSHEX a7, 


[REAR EME HE HEE HE AR HE AE HE NK HE SEE HE TEE HEE BE HE BS ACK OE HE ASE BE AE EE SS OE OEE DE SEE AE RE THE IE OR RS HE OE SE OK OE EE / 


OUTSDNUM: PROCEDURE( DNUM ) REENTRANT PUBLIC; 


DECLARE 
DNUM WORD, 
SEND BYTE; 


DISABLE; 
SEND = HIGH( DNUM ); 
CALL OUTSHEX( SEND ); 
SEND = LOW( DNUM );3 
Gh GL OUTSHEX( SEND ); 
ENABLE; 
RETURN; 

END; 


JEL ZRH A EE BEE He a AE BE aR AE Bee BE EMCO OS OK AE aH a a a ST Ee a OAS HC a a a a ik Ba e/ 
y* RECVSCHAR PROCEDURE Pins!  O8-ee—-se Kays 
rr —  — * / 
PS SOTTEM LEVEL PROCEDURE THAT OSTAINS A CHAR FROM TYE a7, 
Geos tAL PORT. PARITY BIT IS REMOVED. CHAR IS !!NOT!! ¥*/ 
/* ECUOED. 7, 


/* i a ag eee a ee a ee ee a / 
/* CALLS MADE TO: NONE ** / 


[FF EERE AE BEE ME AK HE HEA Ae IE SS ORS Fe REE SIS OR IE RC RS ES HS OR I SE SE Se 2 Ne OE OIC SRE OE IR 2K ENE AE HE NE OK IE IE AE I OO EE EAE OE / 


RECVSCHAR: PROCEDURE BYTE REENTRANT PUBLIC; 


DECLARE 
CHR BYTE; 


/*CHECH PORT STATUS BIT 2 FOR RECEIVE-READY SIGNAL */ 
DO WHILE (INPUT(@DAH) AND @2H) = 23 END; 
CFR = (INPUT(QDQ8H) AND O7FY); 
RETURN CHR} 
END; 
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Me, eocrnur: AE AS HEHE IR HEE OK OE OE NE OS OK AS OE BE A ASK NS AE OK AE HE 


ae 


WE AS AK AK AE 7 
SENDSCIAR PROCEDURE KLINEF 5-23-&2 i) 
cemte eae ame wee ent SS OED mS ee md we em me ee ene OD ee ee mee eS Oe me ee et ee eS oe ee ee ee ee ee ee ee me ee ee ee ee ee ee ee ee ee ee ee *e / 
OUTPUTS A BYTE THRU THE SERIAL PORT. THIS IS NOT A = / 
SERVICE AVAILABLE THRU THE GATEKTEPSR BUT IT IS CALLED*/ 
BY MANY OF THOSE PROCEDURES. IT WILL STOP SENDING ** / 
(AND EVEEYTHING ELSE) IF IT SEES A °S AT INPUT. 9 “i 
WILL RELEASE THE PROCEDURE TO CONTINUES. ef 
THE USER BEWARE! I!!! THIS IS ONLY A DIA4GNCSTIC TOOL 7 
TO FRESZE THE CRT FOR STUDY. RELEASING IT DOESN’T 7 
ASSURE NORMAL RESUMPTION OF EXSCUTION. (YOU MAY FORCE*/ 


ALL BOARDS TO IDLE FOR EXAMPLE.) * / 
ee te cr se ee es ce me me mae ae ces a es ene ts es te es a cs ne ete a me es cae ts Se ce es ee es cts ets ee see ee eee ee ee ee es oe es * / 
CALLS MADE TO: say 


[FR RFE RE BR BR ME HE HE OE AE 2 Be OE IE BE OR EE RAE NE BE ERE BE A OE OE AR IE ACHE XC Ne AE AE OIE BC 2 AE A IC SIE OE EB EE OK NE OE OE EE SIC / 


SENDSCHAR: PROCEDURE(CHAR) REENTRANT PUBLIC; 


DECLARE (CHAR,INCHR) RYTE; 


/* CHECK PORT STATUS */ 
INCHR = (INPUT(@D8H) AND O7FH); 


IF INCHR = 15H THEN 


DO WHILE (INCHR <> 118); 
IF ((INPUT(@DAH} AND 92H) <> @) THEN 
INCHR = (INPUT(@D@H) AND O7FR); 


END} 
DO WHILE (INPUT(@DAH) AND @1H) = @; END} 
OUTPUT(@D84Y) = CHAR; 
RETURN; 


END; 


OT 





eee coos tan 
Lee aceon oe 
GETS 2 HEX CHAR FROM THE SERIAL PORT AND IGNORES ANY- 
THING ELSE. EACH VALID HexX DIGIT IS SCHOED TO THE 
SERIAL PORT. A BYTE VALUE IS FORMED FROM THE TWO HEX 


INSHEX PROCEDURE 


CHAR. 
CALLS MADE TO: RECVSCHAR 


[J PR FE AEE FE HAE FE HE HE OR I HE BH NE RE AK AK SEM 2K AE HEE RE HE I FE HER IEE OK AE IE AE OE IE BI IE RE IE OO IE I A EK Sie fe ie Ne ak ae Oe / 


INSHEX: 


DECLARE 


PROCEDURE BYTE REENTRANT PUBLIC: 


ASCII(*) BYTE DATA ( °8123456789ABCDEF’), 
ASCIIL(*) BYTE DATA( “0123456789 ,61H,62H,63H,64H,65H, 


Son). 
Wuicus, HEANUM, H, L) BYTE, 
FOUND BYTE, 
SLOr BYTS; 


/* GET HIGH PART OF BYTE */ 
FOUND = @; 
DO WHILE NOT FOUND; 


/* IF INVALID CHAR IS INPUT, 


(Oe = RECVSCHAR; 
A Os 
STOP = 0; 
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COME BACK EERE */ 





/* COMPARE CHAR TO GEX CHAR SET */ 
DO WEILE NOT STOP; 
Mem INGHR=ASCTI(th)) OF {INCHR = ASCIIL(H)) THEN DO; 
STOP = OFFE; 
FOUND = @OFFH; 
CALL SENDSCHAR( INCHR ); /* TO ECHO IT ¥/ 
END; 
ELSE DO; 
H = 8 + 13 
IF EH = 10H THEN STOP = OFF; 
END; /* ELSE * 
END; /* DO WHILE */ 
END; /* DO WHILE */ 
FOUND = @; 
/* GET LOW PART OF BYTE */ 
DO WHILE NOT FOUND; 
/* AGAIN DO UNTIL VALID HEX CHAR IS INPUT */ 
INCHR = RECVSCHAR; 
L = 033 
STOP =.¢; 
DO WHILE NOT STOP; 
Pome da eaool lit) OR (INCER=ASCIIL,.L)) THEN DO; 
STOP = @FFH;} 
FOUND = @OFFH; 
CALL SENDSCHAR(INCER)3 
END; 
ELSE DO; 
ly a ee ee 
Peo ton TEEN STOP = OFFH; 
END; /* ELSE */ 
END; /* DO WHILE */ 
END; /* DO WHILE */ 
ROLURN (H OR L);} 
END; /* INSHEX */ 
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[EY S25 HAE SR A OR RR NE ENC a RCE a A a a ORC CO a SRC HE aK a aK EK I / 


i OUTS HEX PROCEDURE KLINEF 5-26-82 iy 
[% --------- --- -- - - + - = - -- -- - + - = +--+ = - = - + -- = -- - --- = - = == 

/* TRANSLATES BYTE VALUES TO ASCII CHARACTERS AND OUTPUTS */ 
/* THEM TH2U THES SERIAL PORT “aff 
|[# eno --- - - $e $e + - - 5 + +--+ x / 
pe CALLS MADE TO: SENDSCHAF ef 


[RRC ERE A FER BR BR RE AE OS BR BR HE HE HE I ARTE RE TS AEE EE HE OE BE NE ENE OO HE eS OE Oe NS NEE BEAK BE HE A OE OE a AE OE EO A / 


OUTSHEX: PROCEDURE(B) REENTRANT PUBLIC; 


PacbLARS B BYTE; 
DECLARE ASCII(*) BYTE DATA ( °@123456789A3CDEF’);3 


CALL SENDSCHAR(ASCII(SHR(B,4) AND @FH)); 
CALL SENDSCHAR(ASCII(B AND @FH)); 
RETURN; 

END; 


[90 9B FETE BE HEH ETE BE BEE BEAR I BR OE A Be EC HE BIC I a RE OK BEC OE SE OB aR SR RCA OR / 
END; fe GesnouuULE */ 
[EEE HEHEHE BERET RHE TE ER BE HR BE BR IA A RO RIC CRC OR A OR CK a aE RE OK / 


[FE PE PERE BR BEE HE BE REI HE DE A A Oe OE SEE 2k HE BIE AE NE eK AE A OIE CEE NE OO a EE IE AE AK AK AEE NEE OK  / 
[PE PE RAR BR ET AR BE HE HE 2 HE AER HEE AE AE HEE AE IE ASHE AE EAE HE 9 BED AC RE RE NE ERE AE AEH HE AC ICE BE ae a OE NE a HE HE / 
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ele lel) B.S 


Eevee lee= MOORLTEX SOURCE CODE 


Pumormeme Source code in LEVEL I, except the scheduler 
mee interrupt handler, is contained in file: LEVEL1.SRC. 
It is compiled with the LARGE attribute. The two exceptions 
are written in ASM86 and had to be listed in their own 
module. LEVEL I is one of the relocatable code modules in 
mle : MORE. LNK. It is part of the executable code module 
Mmameite: KORE. This module contains utility procedures 
used only by the operating system. The memory map for all 
Bown OnE is located at the end of this Appendix. The map 


Bomes from file: KORE.MPe. 
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mh ae HE HH we eee a a EE 
eRe a oR aig 24 a ae I SE DEA aR RE DRT OH af a EO AO EC ae Saye OE OR OE A SEO DK I EO a ak OEE 2 
$C 31 a a IRAE NE aK aK OK Be aK aK OK aKa ACA 9K BE fea ae aE OE AK fs aE 9 a OE OE OE I BEE BE AE BAC OIE OK OK 91 OEE HE OE 
eee LEVEL1.skc 
VERSICN: Kimi 5-29-82 
PROCEDURES 
DEFINED: RO GS 39 BLES WES) Me 

GET WORK LCCATESEVC 

LOCATESS EQ IDLESPROC 

MONITORS PROC 


ste 
#3 


i 
7 
/ 
a 


al 
Ca be 
ates 
Cd to 
xe 
abs 
er 


SEM AR ks : 
WARNING: SEVERAL OF THE LITERAL DECLARATIONS BELOW 
FAVE A SIMILAR MEANING IN OTHER MODULES. THAT MEAN- 
ING IS COMMUNICATED ACRCSS MODULES BOUNDARIES. 35 
CAREFUL WHEN CHANGING THEM. 
x 
[ RRFR ER RA OB HE AE Fe ASRS HK AE HE HE AE HK I SK AL AE AC AS IK AS AE SS AES AC AS AE OK OK KS ee oT 


LISMODULE: DO; 


alae sail WEAK ERE AE ACHE AE AEA AS Oe SK ES TE NE NE NE IK OK ES OE SK RK ME AE AE SE OK A AK AE AC / 


[wr SEK AE NE AS AS HS DE Hs AK MC ME ME HE NS AK IK THE AE 2S NE ASAE AS HE AC NES DHS TE IS dhe 4S NE dhe Be TS SHE ME ME OK AS IS ae OS Ne ae SNS ats hs MEK RAE AE / 

ym LOCAL DECLARATIONS % / 

DECLARE 
MAXSCPU PI ReRALLY lin Oe 
MAXSVPSSCPU Ten A bay eas 
MAXSCPUSSSMAXSVPSS$CPU Li Epa bY 71208" 
FALSE LITERALLY oe 
READY ieee LY eile. 
RUNNING . LITERALLY oo 3 
WAITING PEeRa ALLY Aan 
TRUE Pier Vien y a Le 
NOTSFOUND Teen ay 255. 
PORTSC2 LITERALLY ‘’ooc@h’, 
PORTSC2 Pie sLiy  gacey ’, 
PORTSCE PUPOR ALLY  “SGeRH ~, 
PORTSCC Pees AL LY “9@CCE’, 
BES.sT Dae ALLY a, 
INTSRETURN EI Gee Glee ae 
IDLSSSTACKSSEG Penny | Colon” . 
IDLESSTACKSARBS IT PERAGy  CSlace , 
INITSSTACKSSEG Remy  (oa20n. 
INITSSTACKSABS LITERALLY °832008’, 
MONITORSSTACKSSEG Diary ~t25oCKH ~ , 
MONITORSSTACKSABS LITERALLY °833008’; 


12 





/*OQ7 Oo BRAS AE BS BS Bye FS HE HE AE AE FE ETE A TS BE SISA AE OE OE BK AE IE HE OE SK IE AE AE HE AE AE EE RAE DE AT SE AE EE ANE AE 2K AE AE OK Ve 
/® PPOCESSOR DATA SEGMENT TAaRgLe x / 
ye INFORMATION RELEVANT TO THE PARTICULAR PHYSICAL ay 
us PROCESSOR ON WHICH IT IS RESIDENT. x / 
/* i 
/* CPUSNUME@R: UNIQUE SNQUENTIAL NUMBER ASSIGNED TO */ 
* PHiSme een P2OCESSOR. sid) 
/* VPSSTART: VPM INDEX OF TEE FIRST VIRTUAL a) 
/* PROCESS ASSIGNED TO THIS REAL CPU. * 
* VPSEND: IND=X IN VPM CF LAST VIRTUAL... ** / 
‘hi TPSSPERSCPU: THE NUMBER CF VP ASSIGNED TO THIS a7 
x REAL CPU. MAX IS 14. ** 
a COUNTER: AN ARBITRARY MEASURE CF PERFORMANCES. */ 
/* COUNT MADE WHILE IN IDLE STATE. say 
DECLARE PRDS STRUCTURE 

(CPUSNUMBER Bye. 

VPSSTART BY TT: . 

VPSEND BYT?, 

VPSSPERSCPU ice: 

COUNTER WORD) PUBLIC INITIAL(@,2,2,@,2)3 
J FEAR OR Ae OE RE NE AE OE TR OK BE IE OE OK KE I ETE BR AE SR AS AK IE AE OE AE HE AE OM AK OR EK OK A EE SE AE SS OS OK AS OS OK IK OK MRK AAC TE / 
/* GLCBAL DATA BASE DECLARATIONS a / 
l= DECLARED PUBLIC IN FILE foEROBAL.o °C * / 
ye IN MODULE “GLOBALSMODULE’ ay 


MereLARE VPM( MAXSCPUSSSSMAXSVPSSCPU ) STRUCTURE 
(VPSID BY Da, 
STATE BYTE, 
VPSPRIORITY hy Se 
TVCSTHREAD CYT. 
EVCSAWSVALUS WORD, 


SSS2RG WORD) EXTEPNAL; 
DECLARE 
CPUSINIT BYTE EXTERNAL. 


HDWSINTSFLAG( MAXSCPU ) BYTE EXTERNAL, 
MeeveS( MANSCPU ) BYTE SXTERNAL, 
NRSRPS BYTE EXTERNAL, 
GLOBALSLOCK BYTE EXTERNAL; 


DECLARE 
EVENTS BYTE EXTERNAL, 
EVCSTBL(1@0) STRUCTURE 


(RVCSNAME BYTS. 
VALUE WORD, 
TOREAD BYTE) EXTERNAL; 


Ws 





DECLARE 
SEQUENCERS BYTE EXTERNAL, 
SEQSTABLE(132) STRUCTURE 
(SEOSNAME BLE. 
SEQSVALU® WORD) EXT¥RNAL; 


JE 1G, SBR BREAK DE aK a a Xe ale he ED a ae he 2 Bae a ee a aE ke ak a ae oi a af 2 2 aa NE Ea BCA aK ae ae a 2 OK aK / 


/* DECLARATION OF EXTERNAL PROCEDURE REFERENCES = / 
/* PRE FILE AND MODULE WEERE THEY ARE DEFINED ARE #/ 
/* LISTED, y 


Mr TALSPEOC: PROCEDURE EXTSENAL;: END; 
yon FILE: Piero ne * / 
f= IN MODULE: INITSMOD oy 


AWAIT: PROCEDURE (EVYCSID,AWAITEDSVALUE) EXTERNAL; 
DECLARE EVCSID BYTE, AWAITEDSVALUE WORD; 
END; 


VPSCHEDULER: PPOCEDURE EXTERNAL; END; 
7" IN FILE: SCPE DehoM ~/ 


DECLARE INTVEC LABEL EXTERNAL: 
Zee iN FILE: SCHEDenoM */ 


DECLARE INTRSV=SCTOR POINTER AT(G110H) INITIAL‘G@INTVEC); 
/* IN FILE: SCHED.ASM */ 


JE GY 6 BRR AH EI FE IE HE ENE BE IK BE NE HIE BK OE AE OH HS OE AE HE FE A RE RE RE BE HE EE SIE OE A HE FRE OE BE AE IE SE EE / 
/* THESE DIAGNOSTIC MESSAGES MAY EVENTUALLY BE REMOVED. ¥/ 
/* TRE UTILITY PROCEDURES, HOWEVER, ARE ALSO USED BY THE */ 


/* MONITOP PROCESS. THEY SHOULD NOT BE REMOVED. say 
DECLARE 
MSG1‘(*) BYTE INITIAL (’°ENTERING RETSVP Mlk) Clee Yow) 
Mocia(*) BYTE INITIAL (° RUNNINGS VPSINDEX 4 2) a 
MSG4/*)  PYTE INITIAL a3 Mie ING QDyThISWP ,13,10,°%7). 
moG4s(*) BYTE INITIAL (’ SET VP TO READY: Vee ee) 
mee) KEE PNA TIAL ( SNTSPING CETWORK’,13,19,°%"), 
MoeGa7A(*) BYTS INITIAL (’ SET YP TO RUNNING: VP = 2). 
merece s(*) BYTES INITIAL (° SELECTEDSDBR = %°), 
MSG1@(*) BYTE INITIAL (’ENTERING IDLESVP "13,12, a 
Mioctl(*) BYTE INITIAL (“UPDATE IDLE COUNT 13,18,” ee 
mecti2(*) BYTE INITIAL (“ENTERING KERNELSINIT’ ee 
moweey(*) BYTS INITIAL ( ENTERING LOCATESEVC ”,12,13,°%"), 
MSG22(*) BYT® INITIAL ( “ENTERING LOC ATESS 20 "10.13, °27). 
moe25(*) SYTS INITIAL (’ MOUND 1.15. °% 
MSG24(*) BYTE INITIAL (’ NOT FOUND ’,18,13, °%’)3 





DECLAZE 
CR LITERALLY ‘@DH’ 
Peon reaALLY ~ @AH; 


OUTSCHAR: PROCEDURE( CHAR ) EXTERNAL; 
DECLARE CHAR BYTE; 


END; 
OUTSLINE: PROCEDURE( LINESPTS ) EXTERNAL; 
DECLARE LINESPTR POINTER: 


END 


OUTSNUM: PROCEDURE( NUM ) EXTERNAL; 
DECLARE NUM BYTE; 
END} 


OUTSDNUM: PROCEDURE( DNUM ) EXTERNAL; 
DECLARE DNUM WORD; 
END?) 


OUTSHEX: PROCEDURE(B) EXTERNAL; 
DECLARE 8 BYTE; 
END» 


INSCHAR: PROCEDURE ( RETSPTP ) EXTERNAL; 
DECLARE RETSPTR POINTER; 
END; 


INSDNUM: PROCEDURE (RETSPTR) EXTERNAL; 
DECLARE RETSPTR POINTER; 
END; 


INSNUM: PROCEDURE (RETSPTR) EXTERNAL; 


DECLARE RETSPTR POINTER; 
END») 


1S 





JEQQ 1 BRR IEEE HERE aE A CI RK a aE I SK a a AS OK BE aR SAR IK RA OKC 3 2 A BCE NS AE SKE / 


/* STACK DATA & INITIALIAZTION FCR SYSTEM PROCESSES a / 
DECLARE IDLESSTACK STRUCTURE 
(SP WORD, 
BP WORD, 
Pees TY PE WOED, 
LENGTHS (03048) WORD, 
DI WORD, 
Sit WORD, 
DS WORD, 
DX WORD, 
ox WORD, 
AX WORD, 
RX WORD, 
KS WORD, 
START POMIT¢n.  /* 1P.CS */ 
ae WORD) AT(IDLESSTACKSABS ) 
INITIAL( 66H, 2, INTSRETURN, 
%,0,9,9,0,0,9,3,9,3,3,0,0,0,0,0,0,0,0,8,9,9,9,0, 
Meo, 0 ,0,0,0,0, 0 cg woo, 0 0 0 0 Foe FO POG Or 0, 
7,7,02,9,2,2,2,%, @IDLESPROC, 220H ); 
DECLAR® INITSSTACK STRUCTURE 
(SP WORD, 
BP WORD, 
RETSTYDE WORD, 
LENGTH (@30E8) WORD, 
DI WORD, 
SI WORD, 
DS WORD, 
DX WORD, 
Cx WORD, 
AX WORD, 
BX WORD, 
BS WORD, 
START Rone ues, FC Seay, 
FL WORD) ATCINITSSTACKSABS ) 
INITIAL( 668, 9, INTSRETURN, 
Q,0,0,2,09,3,0,0,3,9,0,9.0,2,09,0,09,9,9,8,09,8,0,9, 
mee, 7,2... e, 
2,0,0,9,0,0,9,2, @INITIALSPROC, 200K ); 


/* 200H SETS THE IF FLAG */ 


ke 





ae MCVITORSSTACK STRUCTURE 
SP 


Ore , 

5) VOaDd, 

RETSTYPE WOED, 

LENGTS (23@H ) WORD, 

DI WORD, 

Sit WORD, 

Ds WORD, 

DX WORD, 

CX WORD, 

AX ORD, 

BX WC 

ES WORD, 

START POINTER. [ee Goi), 

FL Wen ty meCMON LROR So TACKS ADS ) 

INITIAL(66H,@, INTSRETURN, 

mg 40 5250,0,8,9,0,9,9,9,9,0,9,0,0,0,8,9,0,8, 
Sepa, 0,0 ,0,0,0,0,9,8,0,0,0,9,9,0,9,47,0,09,0,0, 

TAGS ag ACh AL oS a @MONITORSPROC, 2008); 


LEG BE A MEME AR BME REE HEE BE AE AE ARIE AE OE AE OE AE RE TE IE HE OE BE SE OE DE A OE AE SE OK AE OE SEK NE IR OE OE AEE KE OE AC A AR A OK 
IF ERE TE BE AEE HE HE HE AE HE OE HE OE AE OE BE AE ARE BE NE ASAE AEE AE NE BE KE OE BE AEE EAE AE AE OK IE AE AE AS HE IE AS AE AE OK AE EE AE AS / 


/*® RETSYP PROCEDURE KLINEF 5-25-82 */ 
/* USED BY THE SCHEDULER TO FIND OUT WHAT IS THE CURRENT */ 
/* RUNNING PPOCESS. IT’S INDEX IN VPM IS RETUBNED.  / 
/* CALLS MADE TO: OUTSHEX OUTSCHAR * / 


[8 FE BRAG EAE AE I BE OE OE IE IE BE OK BE HE BR AE ET BE HE SI AE OE OR I BE EE BES OR OE OE OE AE OC HE NE FE AE DI AE A EE SOE OE OE OK OE AOR XE / 


RETSVP: PROCEDURE BYTE REENTRANT PUBLIC; 
DECLARE RUNNINGSVPSINDEX BYTES 
GALL OUTSLINE(GMSG1); 


/* S@BARCH THE VP MAP FOR RUNNING PROCESS INDEX */ 

DO RUNNINGSVPSINDEX = PRDS.VPSSTART TO PRDS.VPSEND; 
IF VPM( RUNNINGSVPSINDEX ).STATE = RUNNING 
TIEN GO TO FOUND; 

eos /* DO */ 


FOUND: 
CALL OUTSLINE(G@MSG1A); 
CALL OCUTSHEX(RUNNINGSVPSINDEX)3 
MALL OUTSCHAR(CR);3 
GALL OUTSCHAR( LF); 
RETURN RUNNINGSVPSINDEX3 
BND; /* RETSYP PROCEDURE */ 


Joye 





J GA DS RE AE AR HAE AE HE EO HE HE BE EAC OIC AE BIE OC HE OE 2 2 OE AE BC IC AE KC FE OE IE SE NE OE A EK A OE OK OK KE Ea EAE OK / 


ye 6URDPIS VP PROC EDURE RNKe Soco—8 2 a7 
[Bm nr nn rr rr rr rr rrr e 
/* CHANGES A VIRTUAL PROCESSOR STATE TC READY a7, 
[Bh mn nnn nnn rn rn rn rr nnn F / 
/* CALLS MADE TO: OUTSHEX OUTSCHAR 1 / 


J eA FR AR AS AE TE Is Fe HE HE AS HE OO AE AE AE AE He OE AES RAE He HE Die A AE IESE OE HS Oe SE AS AS EO ARE BE OE OR IE AEE OK OK OR ATA / 


RDYTHISVP: PROCEDURE REENTRANT PUBLIC; 
DECLARE VP BYTE; 
CALL OUTSLINE( GMS G4); 


VP = RETSVP; 

CALL CUTSLINE( @MSG4A) } 
Gaon OUTSHEX(V?); 

CALL OUTSCHAR(CR);} 
CALL OUTSCHAR(LF); 
VPM(VP) .STATE = READY; 


RETURN; 
END; /* RDYTHISVP PROCEDURES */ 


dae 





[DGG Gr RE AE FE AE ES EAE AE RE RE ARIE AC AK OE AE AE EOE EE AE EAE AE 2S EAE OE AE EE OE AE EE SOK OK NE OK BE HES EOS AE KE IE / 


/* GETWORK PROCEDURE Ceo eoeco-ee. 7 
Em mm a a ee FF / 
/* DSTERMINES THE NEXT ELIGIBLE VIRTUAL PROCESSOR TO RUN */ 
[Rm rrr rr rrr ree aayf 
/* CALLS MADE TO: eee OUTSLINE OUTSDNUM 7 
HE AE ASAE HE HS BE ES OE 2 OIE cle OE aI oie aE Ree RE SO A ie EBS AE NS 248 OIE EONS Fee OE NE AK FCS EAT AES NE AS EAE AC AS AS AE AC OK AO AE / 


GETWORK: PROCEDURE WORD SBENTRANT PUBLIC; 


DECLARE (PRI,N,I) BYTE: 
DECLARE SELECTEDSDBR WORD; 
DECLARE DISPLAY BYTE; 


CALL CUTSLINE(GMSG7); 
Bat = 2553 


DO /* SEARCH VPM FOR ELIGIBLE VIRTUAL PROCESSOR TO RUN *¥/ 
Ze FuDowyegotnns TO PROS. VPSEND; 
Wa hove rR On ITY 2S HICEER THAN PRI */ 
((7PM(1).VPSPRIORITY <= PRI) AND 
(VPM(I).STATE = READY)) THEN DO; 
/* SELECT THIS VIRTUAL PROCESSOR */ 
i | = VPM(1).VPSPRIORITY: 
oe ’ 
a | * / 
O LOOP SEARCH OF VPM */ 


/* SET SELECTED VIRTUAL PROCESSOR */ 
VOM(N).STATS = RUNNINGS 
SELECTEDSDBR = VPM(N).SSSREG; 


Pabb OUTSLINE( @MSG7A); 
Sab OUTSHEX(N); 

CALL OUTSCHAR(CE);3 
orEE OUTSCHAR( LF); 


CALL ea 
CALL OUTSDNUM(SE 
CALL OUTSCHAR(CR 

CALL OUTSCEAR(LF); 


MS 
L 
R); 


PETURN SELECTEDSDBR; 
END; /* GETWORK PROCEDURE */ 
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[EB SB BAR AK Ae OK HE BE IE IK A HE OE RE DEAE NEA AS IE AE NEE BE RENE IE I HE AE OAS REE OK SE AK OE FE OE SERED AE SE BEE A / 


/*®* LOCATESEVC PROCEDURE KLINSF 5-25-22 x / 
/* ee a es ca a ce a ss es ees ees ee ee ee ee =e / 
/* FUNCTION CALL. RETURNS THE INDEX IN EVENTCOUNT TABLE ¥*/ 
/* OF THE EVENT NAME PASSED TO IT. % / 
/* eee ae ee cs es es ac ee cs cs a cs ce ee ee ae es es we a re ee we ew wwe es we owe — 7 
/* CALLS MADE TO: OUTSCEAR OUTSLING x / 


ae a ee ea A NE AE RS EAS a ae NEAR AE SO OME AS AE AS OR SR AE AE SAC AR MK SEO RS OK AE AE OR AR EEE EK EE HE / 


LOCATESSVC: PROCEDURE(EVENTSNAME) BYTE REENTRANT PUBLIC: 


DECLARE EVENTSNAME BYTE; 
DECLARE (MATCH,EVCTBLSINDEX) BYTE; 


CALL OUTSLINE(@MSG2Q) ; 


MATCH = FALSE; 

EVCTBLSINDEX = @; 

/* SEARCH DOWN THE EVENTCOUNT TABLE TO LOCATE THE */ 
/* DESIRED EVENTCOUNT BY MATCHING THE NAMES */ 

DO WHIL® (MATCH = FALSE) AND (EVCTELSINDEX < EVENTS); 


/* DO WHILE HAVE NOT FOUND THE EVENTCOUNT AND HAVE NOT */ 


/* REACHED END OF THE TABLE */ 
IF EVENTSNAME = EVCSTBL(EVCTBLSINDEX) .EVCSNAME THEN 
MATCH = TRURB; 
ELSE 
EVCTBLSINDEX = EVCTBLSINDEX+1;3 
END; /* WHILE ¥*/ 
/* IF HAVE FOUND THE EVENTCOUNT */ 
iF (MATCH = TRUE) THEN DO} 
/* RETURN ITS INDEX IN THE EVCSTBL */ 
GALL OUTSLINE(GMSG2S3 ); 
RETURN EVCTELSINDEX; 
END} 
mess DO; 
/* RETURN NOT POUND CODE */ 
CALL OUTSLINE(@MSG24); 
RETURN NOTSFOUND; 
END; /* ELSE */ 
END; /* LOCATESEVC PROCEDURE */ 
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JE BEG YE AEE FE EE AE AR A OE HEE EAE BE AR REA IE RE AE OK OK OK BE BEE ERE HE NE ENE AE TE AE NS OK OE AE AE RE HE EE OI SK ASHE AE vs 
ae LOCATESSEOQ PROCEDURE KLINEF 5-23-22 x / 
a gc cc cc cc a eo ee we =] 
/*® FUNCTION CALL TO RETUPBN TEE INDEX CF THE SEQUENCER a 
* SPECIFIED IN THE SRO-TAELE. % / 
%————--———— —--— -— ------ —— -- --~ - 4 / 
Pee CALLS MADE TO: OUTSLINE ef 
[Rw BE ME AE EAE AS SSE RS AS HE SHS Sis Be OE IS He NE Bee oi Se ate Be aie OK BE HS he OK HS Oe oie ig ae ate oie SHEE ele ee HE HE Me oS eS HE me AE AEE ASHE AE / 


LOCATESSEC: PROCEDURE(SEQSNAME) BYTE REENTRANT PUBLIC; 


DECLARE SEQSNAME BYTS; 
DECLARE ( MATCH, SEQTBLSINDEX ) BYTE; 


CALL OUTSLINE(@MSG22); 


MATCE = FALSE; 
SEQTBLSINDEX = @; 
DO WHILE (MATCH = FALSE) AND (SEQTBLSINDEX < SEQUENCEnS ); 
IF SEQSNAMS = SEQSTAFLE(SEQTBLSINDEX) .SEQSNAME THEN 
MATCH = TRUES 


Sz QTBLSINDEXK = SHQTELSINDEX + 1; 
END; /* WHILE */ 
ie (MATCH = TRUE) THEN DO; 
CALL OUTSLINES(@MSG23); 
RETURN SEQTBLSINDEX; 
END, /* iy */ 
ELSE DO; 
GAL CUTSLINE(@MSE24 }; 
RETURN NOTSFOUND; 
END; /* SLE */ 
END; /* LOCATESSEQ PROCEDURE */ 
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/* SEG ESTEE SI Sl la a alae aaa a ME AE HE OK AR AE RE AE ASK A AK OE / 


mie ste a 2 she Ie ote ste ate Ye she Sle ste stele ste Ye ste ste oe sees st > te 
HE NET AL AS NK TIS AK NE BS HK IS OS AS SIS AK AS SAS AAS ACE ENE BR SE A SSIS STS SE EE NS EK EE TST SRK ONE OS EK CK MEAS RSE TE REE AE / 


Pa S\STEM PROCESSES oy 
/* ‘Y 


[98 RRR IEE HEE AE AE AE AE EA A AE A AE CAE 9K SE A AK A OK A RE SE NE A CE EE A SI AE SE OK / 
7~ IDLS PROCESS KLUNGY (eS=24-e¢2 ay 
48 /). 


/* THIS PROCESS IS SCHEDULED IF ALL OTHER PROCESSES IN * / 
/* THE VPM ARE BLOCKED. THE STARTING ADDRESS IS PROVIDED*/ 
* TO THE IDLESSTACK AND PLACEL IN PRDS.IDLESDBR. A % / 
/* COUNTER IS INCREMENTED ABOUT EVERY SECOND. THE COUNT */ 
/* IS MAINTAINSD IN THE PRDS TABLE AND IS A ROUGH MEASURE*/ 
/* OF SYSTEM PERFORMANCE BY GIVING AN INDICATION OF THE */ 


/* AMOUNT OF TIME SPENT IN THE IDLE PROCESS. af 
FE me a a a se a = = -  F / 
fe CALLS MADE TO: PLMS86 PROCEDURE “TIME” a7 
¥ OUTSLINE af 


[88 FR RE RE HE HE AE HE AE AE AE HE AE AK He AEH A HEE HE HK EE I ET AE A AE OE AE IK BK AE AK NE EE AE NETHER EEE AK A OIE EE OE / 


IDLESPROC: PROCEDURE REENTRANT PUBLIC; 
DeeLARE I BYTE; 
CALL OUTSLINE(@MSG12); 
fee OeGLAYS ONE (2) SECOND */ 
moor: DO I = 1 TO 40; 
Gime Time 250 ); 
END} 
CALL OUTSLINE(@QMSG11);3 
PRDS.COUNTER = PRDS.COUNTER + 1; 


cee TO LOOP: 
END; LE iene 20g */ 


| 2e 


7 





JB EQ RE ME BB BEE AE EK OE OE AEE EE HE AE AEE TE OEE oh BE RS A EE OE 3 Gee et / 
>S 


/* MONITOR PROCESS KLINSF 5-26-52 */ 
{* ce a ee we ee ee ee a ee ee ee ee ee ee ee ee ewe oe ee we eee = ee oy 
/* THE MONITOR PROCESS IS INITIALIZED BY TEE CS LIKE e/ 
Poe INIT AND IDLE. IT HAS THE RESERVED ID OF @FEE AND A */ 
yee PRIORITY OF GH. IT IS ALWAYS BLOCKED OR WAITING UNTIL*/ 
/* IT IS PREEMTED EY THE USER. = / 
[ ® e-e-- - - - -  - ---  - - -- -- “Se eS oe ne / 
Poe CALLS MADE TO: OUTSLINE OUTSCHAR % / 
x OUTSDNUM INSDNUM % / 
/* INSNUM e / 


[REE ERE TE ASAE BE BE AE BRAT EE AEE A HEE EAE EAE HE BRAT KA FE AE AE AE AE AR AE ASK AEE AE AE AE FE AE EE BE OK EK OE OE OE AE AE A / 


MONITORSPROC: PROCSDURE REENTRANT PUBLIC; 


DECLARE 
PTR POINTER, 
Pane POINTER, 


Ele. shoe Pine AOR omite 
ADDR STRUCTURE (OFFSET WORD, BASE WORD), 
CONTENTS BASED PTR BYTE 


DECLARE 
(LINECOMPLETE, LOOP2) BYTE 
(QUANTITY, COUNT) Peas 


(INCHR, INDEX, VALIDSCMD) BYTE; 
LOOP: VALIDSCMD = @; 


CALL OUTSCEAR(CR); 
CALL OUTSCHAR(LF); 
CALL OUTSCHAR(’.”);3 
DO WHILE NOT VALI IDSCMD; 
CALL INSCEAR(@INCHR); 
Denon (De nuwren INGHR = ~S ) OR (INCHR = “aR ) 
VALIDSCMD = GFF; 
IF (INCHR=64H) OR (INCHR=65H) OR (INCHR=73H) THEN 
VALIDSCMD = @FFH; 
I¥ VALIDSCMD = @FFH THEN CALL OUTSCHAR(INCHER); 
GND; /* DO WHILE */ 


23 





IF (INCHR = °D’) OR (INCER = 64H) THEN DO; 


/*® DISPLAY COMMAND SECTION */ 
CALL INSDNUM(G@ADDR. BASE); 
CAMEL OUTSCHAR( ~:~ )3 
Cie L INSDNUM(GADDR.OFFSFT): 
PTR2 = GADDR}3 
PTR = PTR3; 
/* CONTENTS SHOULD NOW BE SET */ 
DO WHILE (INCHR<>CR) AND (INCHR<>23E);3 
CALL INSCHAR(GINCHR);3 
END; /* DO WHILE */ 
IF INCHR = CR THEN DO;3 
CALL OUTSCHAR( “-’); 
CALL OUTSNUM(CONTENTS); 
CELL OUTSCEAR CCR); 
CHLIn OULSeCH Ar Dr); 
END; /* IF NORMAL 1 ADDR DISPLAY */ 
IF INCHR = 23H THEN DO; 
COUNT = @; 
CALL OURSCR ARK 4); 
CALL INSNUM(@QUANTITY)3$ 
DO WHILE QUANTITY > @3 
CALL OUTSCHAR‘CR); 
CALL OUTSCHAR(LF); 
CALL OUTSDNUM( ADDR.BAS®); 
GAL OURS CHAR °:”); 
CALL OUTSDNUM(ADDR.OFFSET); 
LINECOMPLETE = FALSE; 
DO WHILE LINECOMPLETE = FALSE; 
CETL, OUDSGEARY ~ ~)s 
CALL OUTSNUM(CONTENTS ); 
AUOR Ose = ADDR .OFFSST + 1; 
PTR = PTR; 
SUENTITY = OUANTITY = 1; 
IF ((ADDR.OFTSET AND @@0F¥)=0) OR 
(QUANTITY = 2) THEN LINECCMPLETS=TRUE; 
END; /* DO WEILE LINE NOT COMPLET */ 
UND: /* DO WRILE QUANTITY */ 
END; /* IF MULTI ADDR DISPLAY */ 


Biss DISPLAY COMMAND SECTION */ 
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IF 


(WNCHR=S ') OR ‘INCHR=73H) THEN DO; 
/* SUBSTITUTE COMMAND SECTION */ 
OLIN INSDNUM( GADDP. BASE);3 
CATRMOUTSCOHAR(’:°)3 

CAEL INS DNUM(GADDR. CxS rm); 

CALL OUTSCHAR(’-’); 


PTR2 = GCADDR; 
Pid = Puno; 


/* CURRENT CONTENTS SEOULD NOW BE AV’ 


CALL OUTSNUM( CONTENTS ); 
LOCP2 = TRUE} 
DO WHILE LOOP2 = TRUE} 
DO WHILE (INCHR<>’, ”“ )AND(INCHR<> ” 
AND(INCHER<>CR) 3 
CALL INSCHAR(GINCER); 


ILABLE */ 


} 


END; 
Ty A INCHS = CR) THEN LOOP2 = FALSE; 
IF (INCHR = °,°) THEN DO; 


Wee SNe THIS ADDR AND GO TO NEXT FOR SUB */ 


CALL OUTSCHAR(CR)$ 
Cat OumseH A VR(LF)3 
ADDR .OF FSET = ADDR.CFFSET + 1; 
PTR = PTR; 
CALL OUTSDNUM( ADDER. BASE); 
GArt CUTSOHAR(. 2) § 
CALL OUTSDNUM{ADDR.OFFSET)$ 
GALL OUTSCHAR( “- ); 
CALL OUTSNUM(CONTENTS); 
END; /* IF SKIP FOR NEXT SUB */ 
I’ (INCHR = ~ ~) THEN DO; 
GA OURSCHAR( ~ 4); 
CALL INSNUM(@CONTENTS )3 
DO WHILE (INCHR<>CR) AND( INCHR< 
CALL INSCHAR(GINCHR); 
END; 
Ras ENG@Me = 962) THEN LOOP2 = F 
TPoCINGeR =", %) THEN D0; 
Gh OUTSOR AR ( 
ADDR.OTFSET = ADDR. LOFTSET + 
PTR = PTRS; 
CALL OUTSCEAR‘CR); 
CALL OUTSCERAR(LF); 
CALL OUTSDNUM(ADDR.BASE); 
G@ADL OUTSCRAR( “: “); 
CALL OUTSDNUM( ADDR.OFFSST); 
CALL OUTSCEAR( ’-"); 
CALL CUTSNUM/‘CCNTENTS ); 
Ete sl e COeToO NEXT ADDR */ 
END; /* IF CHANGE CONTENTS */ 


4 @ 


a tA i ° 
2 ° 9 


ALS #3 


1; 


PGi akery ss ea IN ET EALIZE CMD */ 


[25 





END; /* LOOP, CONTINUOUS SUB CMD */ 
END; /* SUBSTITUTE COMMAND SECTION */ 


IF (INCHR=“F") OR (INCHR=65H) THEN DO; 
/* FIND OUT WHICH VPS IS RUNNING “ME” */ 
INDEX = RETSVP; 
/* NOW BLOCK MYSELF */ 
VPM(INDEX).STATE = WAITING; 
CALL VPSCHEDULER; /* NO RETURN */ 

END; /* IF */ 

ee rc LOOP; 
END; /* MONITOR PROCESS */ 
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*#ACOT* WS Ae AT AE AE > Dm Sa RE ee ea ee sere ee / 
os £ SK AK ASE OK BS AR EOS Ne NS BSS SNE TS BS EAS SIS BK EOS BE ASS Oe ENS NS AS He os ENE Bs TAS He RE He eS ae Te HE oie he He AS NE Sie ME OF TEAC / 
a STARTING POINT OF TES OPERATING SYSTEM ay 
[* re a cea a ee ae ee en ee a ee en we es oe ee / 
/= ROUTINE INITIALIZES THE OS AND IS NOT REPRATED. a7 


J 9 FE RRR AE BE HE ME BE BE HE HE BE HS BE EAE AE SEAR BE NE AE IE IK BE RE AE AE HE BE SE EE AS OE Ee OE AEE OK MERE AE ENE OE HE AE OK HE AE HE / 
[er Be HE BS Bae AE AE AE AE BE HE BE AK AE AS BE AE HE RENE AE HE AEE OK NC A OK IEE EAE OE SEE NE KE AE HE EE EOE SSE OE EK IEE SR AE / 


foeto INDTTIALIZE THE PRDS TABLE FOR THIS CPU */ 

DECLARE CPUSPTR POINTER DATA{@PRDS .CPUSNUMBER), 
ZZ BYTE; 

DISABLE; 


CALL OUTSLINE(@MSG12); 


/*®* INITIALIZE Pp PI AND ee Ge Om A 

OUTPUT(PORTSCE) = 8@H;/* PPI CONTROL - MAKE PORT C OUTPUT */ 
OUTPUT(PORTSC@) = 13H; /* PIC - ICW1 - EDGE TRIGGERED */ 
OUTPUT(PORTSC2) = 40H; /* PIC - IcW2 -VECTOR TABLE ADDRESS */ 
OUTPUT(PORTSC2) = OFH}/* PIC —- ICW4 -MCS86 MODE, AUTO EOI */ 


/* ESTABLISH UNIQUE SEQUENTIAL NUMBER FOR THIS CPU */ 
7* SET GLOBALSLOCK */ 

DO WHILE LOCKSSET(@GLOBALSLOCK,119); END; 
PRDS.CPUSNUMBER = CPUSINIT; 

CPUSINIT = CPUSINIT + 13 


/* RELEASE GLOBAL LOCK */ 
GLOBALSLOCK = 23 


Peo et UP INITIAL START AND END FOR PROC TABLE *¥/ 
PRDS.VPSSTART = @; 

Memee = 1 TO PRDS.CPUSNUMSBER; 

mee eS TALS Sai vomvroot Arr = MAXSUPSSCEPU, 
END; 

BROS. VPSEND = PRDS.VPSSTART + 23 
mms. JPSSPEPSCPU = 3; 


/* INITIALIZE THE VP MAP FOR IDLE AND INIT PROC */ 
/* AND MONITOR PROCESS */ 

VPM(PRDS .VPSSTART).VPSID = 255; 
VPM(PRDS.VPSSTART) .STATE = 1; 
VPM(P32DS .VPSSTART) .VP$PRIORITY = @3 
VPM(PRDS .VPSSTART) .EVCSTHREAD = 255; 
MeMICPRDS .VPSSTART) .EVCSAWSVALUE = @; 
WPM(PRDS .VPSSTART).SSSREG = INITSSTACKSSEG; 


Wey 





Mer PRDS.VPSSTART+1) STATE 1; 

Meet PRDS.VPSOTART+1).VPSPRIORITY = 255; 

Wer Pads .VPSSTERT+1).EVCSTHREAD = 255; 
VPM(PRDS.VPSSTART+1) .EVCSAWSVALUS = @; 
VOM(PRDS .VPSSTART+1) .SSS2EG = IDLESSTACKSSEG; 


le eae a eae 2553 
) 


VPM(PRDS .VPSSTART+2) .VPSID iia 
VPM(PRDS .VPSSTART+2) .STATE 
VPM(PRDS .VPSSTART+2). Peeen toni ry =i 
VPM(PRDS .VPSSTART+2) .EVCSTHREAD = 255; 
VPM(PRDS .VPSSTART+2) .FVCSAWSVALUE = 0; 
VPM(P2DS .VPSSTART+2) .SSSREG = MONITORSSTACKSSEGS3 


NRSFPS = NRSEPS + 1; 
NRSVPS(PRDS .CPUSNUMBER) = 3; 


EDWSINTSFLAG( PRDS.CPUSNUMBER ) = @ ; 
ENAEL®; 


CALL VPSCHEDULER; /* see oO RE LGR. * / 


[J PR FE PRI BE RAE HE HE ME A AE AK IK 2 OE BE BE OE ARE AK HE DE OE BK BIE AE OE IEE FE OE OE OIE OK DIE AE OK HE NE EK XE OE AE OE OI DIRK OK SE OK EEE / 
[FFE Ae HE HE BERS HE HEE AEE IE AE AE HE OE IE SLA IE BE OE OE OE OK OK OK 3 AK EK AC OE OE SE OE BE OK OE IE OK OE > Se A AE AE CC EK / 


END; /* LISMODULE */ 
/ BE RIES ETE EH REE BE CR NE A OK Ke A HE Ca A EE a I KE a a a a a a aS aE a A OK CHE I / 


EAR TAT EAE SEALE AAA HEL ERTS A ATR E T / 
[FEES BENE He a AE ISO He a AERO Be OE BRE SINE AER Me ea AE Re Re a a AE OE Re aS a a Re a ea ae EE a Ree ae a aE a AE / 


ere 





Messi Mes-8e LCTATER, V 
mecesS KORE. LNK ( 


2ODRESSES 


STACK (23¢¢02),S 
INITMOD CODE(C2872E) ,6 


GLOBALMODULE DATA(S™@49a4q) ))S 


ee 
SiG 


SmesIZE( STACK( 75H) 6. 


BS(@H TC @FFry) 
WARNING 
SEGMENT: 


ROAD FROM FILS 
WRITTEN TO FILS 


BASE 


G2407 
BLgee 
@100H 
Z1Q0EF 
meus2 
31825 
a) eae 
ebsyas| 
Savas 
Bac 
41825 
31825 
goa 2 
1825 
A2E4H 
pcever 
EQCCE 
EOO@r 
SOOOH 
E¢@@?@xz 
ROOO7 


MEMORY 


eG: 


MAD 


_ 


NTS ¢S 


NEE KEN? 


RV e 
+t tp @& 


Por ween SHR ie) SPACE 


(NO NAM?) 
SeareoOL TABLE OF MODULE LIMODULE 
KOR es .DNK 
oh 2 Oe 

Omese, TYPE SYMBOL EES 
QOCA= PUS PRDS 21032 
€42°H PUB IDLEPRCC Z1C93H 
22h2H PUB LOCATEFVC @1a¢F 
CECE VPUS RBVTeISVP g1gd2 
SBR5H PUR OUTH®X ?1824 
QAESZ PUP SENDCUAR ALa29 
Yeetn S838 CUTRNUM 1822 
ZOC¢@R PUS OUTNUM 71325 
@S9E97 PUB OUTCTAR @1e2u 
9923H PUB INCHAR Ala2H 
Ween - PUB TICK T ?182F 
Z42kF7" PUR PREEMPT A182e 
G27FA PUR AWAIT @1828 
Cyega PUR CEPATPEYC ¢1825 
Meco PUB VPSCPEDULERZ2ZE+E 
G@@2E PUR INITIALPRCCESGGR 
04C09H PUB SEQTABLSE ai 
gag? FUP  CPUINIT TASAE 
94C6R PUSTVENTS "O@O048 
G4R2FRF PUB NEVPS *?ACH 
O4EGH PUE GLOBALLOCK 

for -O" VERULE LIMOCDULE 

READ FEOM FILE FORF.LNK 
MOme iE fEoe KOR: 


WRITTEN 
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Cre ot 


O46A4 
23214 
72178 
A145 
PARCH 
BABDS 
AODAE 
09715 
393 23 
ATDEA 
AEECH 
33348 
C2038 
auey as 
BO3DE 
@1903 
SAC3H 
ABB2Y 
@43CH 
74R14 


Pus 
Re 
PUE 
PUE 
Pus 
PUB 
PUR 
PUB 
Bue 
je Ofte 
PUS 
fens 
Pues 
PUR 
ates 
sel Us 
PUB 


MONITORPROC 
LCCATES EO 
GETWORK 
RaTVP 
INHEX 
RECVYCHAR 
INDNUM 
CUTAINS 
INNUM 
CREATEPSOC 
CREATES EO 
ADVANCE 
READ 
GATEXERB PEN 
INTVEC 

YPM 

S BCUENCEES 
EVCTBL 
HDWINTFLAG 
Naa 





MOBDULZS STAST ALPRTSS PARAGRAPH = GIFPR OFTSTT 

SEGMENT MAP 

START Sue DENGTe ALEAY NAME 

@Z113E @O11358 C2439 A CAS CLUS) 

Z172CH P1 8258 PR2ER y Iuah ley Nw id 5 enone 

0128268 Q2408H ARUSHZ W LEMODULE CODES 

2240Aq GZ40AH ASCAEH y GLCBALMOTULE | 
-ODR 

G24GAR G@253RH 91325 LiIMODULE DATA 

9253CH 26175 20845 : TL2MOTULS DATA 

226278 226294 P@13H Ww INITMOD DATA 

264048 926432 AAQGAR QE Swe 

G@26408 @2ERGH Z2OA1H G SCEREDULER 

7287CH 7282448 ??25H W INITMOD CODE 

J3OOOH O@327449 AS7SH W TAC K 

G31208 0317348 AOer7Cg A (ARSOLUTE) 

C32ACH G3Z27R0 PETG i (ABSOLUTE) 

G3300H 833724 2O7C3H 4 (eS Syopnaniian) 

ES@OOGH aoonao 2554 W GLOSALMOPULE_ 
—ATA 

TO5PF6R WOSREH ZBASH W MEMORY 


CODE 
CODS 
DATA 


CATA 
DATA 


CODE 
STACK 


DATA 


rimloOR Y 





PEreND IX G 


SomeDULe nh es  UNiemnUEl HANDLER SOURCE CODE 


itjemsouree Code in this appendix is part of LEVEL I, but 
it was assembled under ASM86 instead of of compiled. No 
special attributes are required for the assembler. The 
meermee code is contained in file: SCHED.ASM. It is linked 
pemore With the other modules of LEVEL I and LEVEL II into 
file: MORE .LNK. Its memory map is included in the memory 


map for KORE. 


ast 





we SE a ak ie Ae oft 28 a aha ea he Re ee a hee OI ea ae ee a Re EB WR a 2 a ea a Bae ea 2 a a at a oh a ae ae a ae eae fe 
sx SCREDULER ASM FIL2 KLINEF 2-27-82 se 
ee ee ee % 
;* THE FOLLCWING ARE THE EXTERNAL PLM86 PROCEDURES CALLED * 
s 


t 


meee! THIS MODULE. 


EXTRN GETWORK: FAR 
EXTRN RDYTHISVP:FAR 


EXTRN PRDS: BYTE 
EXTRN HDWINTFLAG: BYTE 
EXTRN GLOBALLOCK: BYTE 


SCHEDULER SEGMENT 


PUBLIC VPSCHEDULER 
PUBLIC INTVEC 


VPSCHSDULER PROC FAR 
ASSUME CS:SCEEDULER 
ASSUME DS:NOTHING 
ASSUME SS:NOTHING 
ASSUME ES:NOTHING 


jeeerii=ey FOINT FOR A CALL TO SCHEDUDER 


CLI 
Buon DS 
MOV CX,@H 


; SWAP VIRTUAL PROCESSORS. TEIS IS ACCOMPLISHED RY 
; SAVING THE SP AND BP REGISTERS ON THE STACK, ALONG 
peWITH THE RETURN TYP= FLAG AND GETTING A NEW DBR , 
; THE SS REGISTER OR STACK SEGMENT REGISTER OF THE 

; PROCESS SELECTED TO RUN NEXT 


INTJOIN: MOV SS:WORD PTR 2,SP ; SAVE “CURRENT SP 
MOV SS:WO8D PTR 2,3P ; SAVE CURRENT BP 
MOV SS:WORD PTR 4,CX ; SAVE IRET_IND FLAG 
CALL GEPVORK 
MOV SS,A4X oo -— ShERCuED Esc RAG 


s OWAP VIRTUAL PROCESSOR CONTEXT COMPLETE AT THIS PCINT 
> NOW OPERATING IN NEWLY SELECTED PROCESS STACK 


2 





MONS ,oo WORD PTR se ce 
ROE er. oos WORD PTR 2 7 lente’ 


Ove CA,SosWORD PTR 4 
; CHECK FOR RETURN TYPE, NORMAL OR INTERRUPT 


Ce CX, 7H 
eile Nite F 


NORM RET: POP DS 
; UNLOCK GLOBAL$ LOCK 
MOV AX,SEG GLOBALLOCX 
MOV ES, AX 
MOV ES:GLOBALLOCK ,@ 


Sit 
RET 


VPSCHEDULER ENDP 


9 MEE AE AE FE NE AK HS NE AE ARTE AE HE AE IE IE IK AE HEE HE AK ARK EEK AE NE AK BEE HE AE EE OK OK BEAK EI OK KE OE OK IK AE OE OK OK KE OE OK OK OK OK 


e 
9 
e 
g 


xe 
* INTERRUPT HANDLER 
s 


e 
9 


INTERRUPT HANDLER PROC NEAR 


ASSUME CS:SCEEDULER 
ASSUME DS:NOTHING 
ASSUME SS:NOTHING 
ASSUME ES :NOTHING 


mveC: CLI 
PUSH ES ; SAVE NEEDED REGs TO TEST INTERRUPT FLAG 
PUSH BX 
PUSH AX 
PUSH CX 
CALL HARDWARE INT FLAG 
MOV AL,@ 
XCHG AL,FS:HDWINTFLAG(BX] 
CMP AL,77H ers INT SAG. ON? 
JZ PUSH REST REGS emeCrsS “Sav rR EST REG s 


lies 


HE AE AE SK AE AE AK RE AK EE OE TE ES BK OE OK AEE AE OE ARIE TK EAE EE AS OE RENE OE AE HE NS OS TK OE AEE OE AE OK KOK SIS EE IE AE OE AK AE OE OE KE EE 


x 
x 





Oren ek > IF “NOT” RESUME PREVIOUS 
POP AX peexeCUL TON oY CINT 


Bor | px 
POP ES 


Sei 
IR ET 


PUSH REST REGS: PUSH DX » FLAG WAS ON SO NEED 


i 


PUSH DS s FE-SECHEDULE 
PUSH SI 
PUSH DI 
MOV AX,SEG GLOBALLOCK 
MOV &S, AX 
mor AL,i19 s LCCK GLOBAL LOCK 
LOCK XCHG ES:GLOBALLOCK, AL 
Moot AL,AL 
JNZ CK 


CALL RDYTHISVP 


mov Cx, 774 > JUMP TO SCHEDULER 
ome 6 6~6hLNT JOIN 


ieee ts: POP DI 


moe ol > RETURN FOn 

Ror DS PS OG HOO mwa GH 
moe Dx > HAD PREVIOUSLY 
BOP Caz ; BEEN INTERRUPTED 


> UNLOCK GLOBALS LOCK 
MOV AX,SEG GLOBALLOCK 
MOV &S, AX 
MOV ES:GLOBALLOCK,2 


EO, AX 
POP EBX 
moe ES 
Sa 
IRsT 


INTERRUPT HANDLER ZNDP 


9 AE AE ENE OK HE AE AE AK IE AE HE OR AE HE RE IE IK OK HEAT HE HR AE IE HE IK FE OE AS AE SK SK EK TR IK AE A AS AK OR OE SER AE ES KE IK TE AE RE AE AE AK OS OS TE 
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© XE RE AE AS AE AE AS AE AE EE A A AE NE OE HEE OR SEAN OE IE A AE A AE IS AS AE ANE AE IES NE AK AE 2 OK OR AK AS OK FE AS EAS AE AE AS AK AE AE AE AE AS AE NE OE 


a 


aS 


HARDWARE INTERRUPT FLAG * 


xe 


HARDWARE INT FLAG PROC NEAR 


ASSUME CS:SCHEDULER 
ASSUME DS :NOTHING 
ASSUME SS:NOTHING 
ASSUME ES :NOTHING 


HDW FLAG: MOV AX,SEG PRDS 


MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RET 


ES, AX 

BX ,@H 

Cis tP RDS Lex) jae G PU vist 

CH,@ » RETURN IN BX 

BX ,CX 

AX,SEG HDWINTFLAG sSET UP HDWSINTSFLAG 
ES, AX ; SEGMENT 


+ RETURN IN ES REG 


HARDWARE INT FLAG ENDP 


SCHEDULER "NDS 


END 


[ESS 





Bee OBO Is! 


Cheba DATA, BASE VAND WLTTAL PROCESS CODE 


iwomrirres are presented Nere: GLOBAL.SRC and INITK.SRC. 
They are both separately compiled with the LARGE attribute. 
They are linked into the file: KORE.LNK. They are 
represented in the memory map for KORE located at the end of 
Appendix E. INITK reserves only the minimum amount of space 
meaguared by operating system for the initial process. fhe 
user's initial process may be larger. The user may have to 
explicitly reserve more space in the LOC86 command. See the 
mm@ecreelOoGr.GoD for an example. If you look at the KORE 
memory map at the end of Appendix F, you will see that the 


meeeol) CODE segment is only 25H bytes long. 
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[98 BENE IE HE HE RE RE REE BE HE EE EE BR AS DKS BED BE A DC HO 2 a OK ED BOK 2 a aK 2 aK a a AR Beas Xe ai a Ne a 
[8298 EH EE HE HE BNE REE BE RE BRIE BR BRR IKE ACRE NC AE EO BK OED 9 AE AE OK BAR OK A DK BR DI OK OK BA REA OK BK BEE OK RE / 
[EBB GM AE IE EK AR AE OK OE BRAG SHEA EK OE AK A BR AE OKC OK RC AK OR SE A OC ECS OE CC A OE AK AE IE RKO OR OE / 
poe FILLE: CLO ot © 
VERSION: eon ie s—-25-o2 
PROCEDURES 
DEFINED: NONE 


REMARES :THIS MODULE CONTAINS DSCLARATIONS FOR ALL THE 
GLOBAL DATA THAT RESID=S IN SHARED COMMON 
MEMORY. IT°S LOCATED THERE BY THE LOCATE COm- 
MAND AND BY SPECIFYING THAT THE 
GLOBALSMODULE DATA SEGMENT BE LOCATED AT SOME 
ABSOLUTE ADDSESS. 
x 
FTO AE AE OE TE HE HEHE HE BSS AE HE I AE AE AE BK ARE AS HE EAE AK KS AE HR AE AE HC KAS AE AK AE KE EC KE NE OI OE OK OK XE mtsaaniee 


GLOBALSMODULE: DO; 


J BRE RERE E FE HE HEHE FE HE AE HEN BE AEE RE REE FE RE RA NC NCR CE 2 A RK a ESE eC AE OR aK aK A BOK aK ak OK RKC E/ 
[FERRIER EI A RE REE HE BR ee He HEE BC Ee BERK BE ERE OK aK aK OK AE BE EA RI OS 2 OK BCE A A aE EOE / 
/* THE FOLLCWING THREES LITERAL DECLARATIONS ARE ALSO // 
/* GIVEN IN THE LEVEL1 & LEVEL2 MODULES OF THE OPERATING */ 
/* SYSTEM. A CHANGE EERE WOULD HAVE TO BE REFLECTED IN */ 


/* THOSE MODULES ALSO. fs /) 
DECLARE 

MAXSCPY brtewstiy “10°; 

MAXSVPSSCPU eR AyY 12. 


MAXSCPUSSSSMAXSVPSSCPU LITERALLY °120°; 


DECLARE 
GLOSALSLCCK BYTE PUBLIC INITIAL(@); 


/* THIS SHOULD REFLECT THE MAXSCPU ABOVE */ 
DECLARE | 
NROAPS Peas ePUeolC INITIAL(@) , 
NRSVPS(MAXSCPU) BYTE PUBLIC 
INITIAL(S ,0,2,8,9,0,9,9,4,8)3 


DECLARES HDWSINTSFLAG(MAXSCPU) BYTE PUBLIC; 


DECLARE EVENTS BYTE PUBLIC INITIAL(1); 
DECLARE EVCSTBL(10@) STRUCTURE 


(EVCSNAME Bis, 
VALUE WORD, 
THREAD Bae) eee LLC 


-- INITIAL(@FEH, 9,255); 
/* 3VC ‘FE’ IS RESERVED FOR THE OP SYS */ 


Use 





DeGern a CPUSINIT BYTE PUBLIC INITIAL(@); 


DECLARE SEQUENCERS Bye eeecUent © SDNI TIAL 2). 
DECLARE SEQSTABLE(192) STRUCTURE 

(SEOQOSNAME BITS, 

SEQSVALUE WCRD) PUBLIC; 


DECLARE VPM( MAXSCPUSSSSMAXSVPSSCPU ) STRUCTUES 
(VPSID BY 


-3 9 


We Sioieacl © SUIS 
WIDE eye IONS IEGE SE BC Aner 
EVCSTHRSEAD Beh 5 
EVCSAWSVALUE Oa 
SS SREG WORD) PUBLIC; 


END; /* MODULE */ 


[78 FE ERE HR AB HE HE HE AE BE HR HE AE IE HE IE AK AE IE AE AE ASE AE IE HE OYE OE RE OE AEE NE AE OK OK SE OK OK OK AE HS AE OE OE XC HK AE HE BE AS EAE AR IK IE / 
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[EA ERE EA AR HE BE BE SK AE BRIE AE OE OE BE SEE AE BE TRIE A NE EEE A ERE A OE IE AE AE AE RE A AS HE AE OE AE OS SE OE OK OE EO OE OE OE OE OK / 


Ug INITK MODULE ev ho 27 ee «7 
[8 mn nn a rn rn rn rn rn rn rrr re % / 
7/* THE CODE SEGMENT OF THIS MODULE IS WHAT RESERVES SPACE */ 
Peet THE OS FOR THE USER INITIAL PROCESS. THIS [IS ay! 


/* EXECUTABLE IN IT’S OWN RIGHT. THUS IF THE USER DOES ie 
/* NOT PROVIDES AN INITIAL PROCESS THIS ONE WILL EXECUTE, */ 
/* BLOCK ITSELF, AND IDLE THE CPU. THE ADDRESS OF THE OU 
/* INITIAL CODE SEGMENT IS PROVIDED TO LEVEL1 AND IT IS a7, 
/* REFLECTED IN THE PLM LOCATE COMMAND. THE ADDRESSES ay 


/* PROVIDED MUST AGREE. THIS PROCESS HAS THE HIGHEST  / 
/* PRIORITY AND WILL ALWAYS BE SCHEDULED FIRST 3Y THE * / 
/* SCHEDULER. x / 
sc Sy at / 
/* CALLS MADE TO: AWAIT = / 


[EE ERE ME REE HAE RE BE IE A HE BSE OE AE KE AE AE AEE NE ERE OK BE OE SIE AK OE ES BEE AE EK OE HE OK CK ORE OK OK AE OK OE AE RA A / 


PirSMOD: DO; 


DECLARE 
MSG13(*) BYTE INITIAL(10,°ENTERING INITIAL PROCESS ’, 
Wome. Go); 
OUTSLINE: PROCEDURE( PTR ) FXTERNAL; 
DECLARE PTR POINTER; 
END; 
AWAIT: PROCEDUPRE( NAME, VALUE ) EXTERNAL; 
DECLARE NAME BYTS, VALUE WORD; 
END; : 
INITIALSPROC: PROCEDURE PUBLIC; 


DECLARE I BYTE; 


everett iA IZATION THIS PROCESS SLOCKS 7, 
/* ITSELF TO ALLOW THE NEWLY CREATED PROCESSES 7, 
ye tO BE SCHEDULSD. <7) 
/* THIS AREA SHOULD BE WRITTEN OVER BY USER INIT */ 
/* PROCEDURE MODULE. 7, 


CALL OUTSLINE(@MSG13); 
CALL AWAIT( @OFEH, 1); 


END; (eT LAG sPROC */ 
ewes 6 /* INITSMOD */ 


ys, 





APPEND Ie 1 


Taoneonv een OUULE SOURCE CODE 


imimomscecunrece code 2S contained in file: GATE.SRC. It is 
compiled with the attribute LARGE. The object code file: 
meee) LS Piven to the user to link with his initial 


process and user processes. 


140 





[QQ QT RR RE EE AE EAE HE BE IEE AEE BEE DE HR OR REO 2 BE OS aR AE 2 BK AR 9 ARE AR AE OE RO SR AEE A RE a OE A AE OK OK / 
/* GATE MODULE FILE “GATE.SRC “ KLINNEF 5-26-22 */ 


i 
/* THIS MODULE IS GIVEN TO THE USER IN OBJ FORM TO LINK #¥/ 
/* WITH HIS INITIAL AND PROCESS MODULES. ANY CHANGES TO */ 
/* USER SERVICES AVAILABLE FROM THE OS HAVE TO BE 7 
f= REFLECTED HERE. IN THIS WAY THE USER DOES NOT HAVE TO*/ 
/* BE CONCERNED WITH ACTUAL GATEKEEPER SERVICES CODES. * / 


/* ALL CALLS ARE MADE TO THE GATEKEEPER IN LEVEL2 OF TEE *¥/ 


/* OS. THE ADDRESS OF THE GATEKEEPER MUST BE GIVEN 3ELOW.*/ 
J BQ BREE ER HE ME HE OE HE EO AR HE AE Oe BR OE a EE a OE OK OR AEE OE OE BK Se SRE OK OE IK / 


GerserOb: DO; 
/* REFLECT GATEKESPER ADDRESS HERE. GKI=OFFSET, GK2=BASE */ 
DECLARE (GK1,GK2) WORD DATA(@@EGCH,@182H), 
GATESKEEPER POINTER AT(G@GK1); 


DECLARE RETS WORD, 
RETSSPTR POINTER DATA(GRETS ); 


[LEB Q 2S A REA AE REE FE AE A A AE NE AEA AE OK A OE BE BK AE HE AK EE AE AES AE RE AE KE FE EE OE IE KC SIE AK OE OK AK OE AE AE / 


AWAIT: PROCEDURE( NAME, COUNT ) PUBLIC; 


DECLARE N&aME BYTE, COUNT WORD; 
CALL GATESKEEPER( 3, NAME, COUNT, @, @); 
RETURNS 


END; {= ST */ 


JEG QDB 0 A AE AE AE BEE RE BE A EE A SE AE BE REE AE AE AS EE SHE EE EE AE AE OE I AE Oe Be EE AE AE EE OE OK OE IE / 


ADVANCE: PROCEDURE( NAME ) PUBLIC; 
DECLARE NAME BYTE; 
CALL GATESKEEPER( 1, NAME, @, 8, @ ); 
RETURN; 

END; /* ADVANCE */ 


JE QD A SRR A A EA ME SER BE ae OE OE BE A a SR OO BE OA SS HE ae BE OE OE eR SOR OE OE OE CE / 


CREATESEVC: PROCEDURE( NAME ) PUBLIC; 
DECLARE NAME BYTE; 
CALL GATESKEEPER( 2, NAME, 3, 0, @ )5 
RETURN; 

END; /* CREATESEVC */ 





FED DT SARA EAA RE ARE RE RE AE METRE AE EAC II AE Bae ME EAS AE ONE HE NEE BE SE AE SE AE SE OEE EK AE AE EE EE BE Ot / 


CREATESSEQ: PROCEDURZE( NAME ) PUBLIC; 
DECLARE NAME BYTE: 
CALL GATESKEEPER( 3, NAME, 2, 8, 2 );5 
RETURN; / 


END; /* CREATESSEO 
JE BGR Y PRE EH A HEE BH BE BE BE EK OR EEE A OO RI BE OE BK IC OK OE EO AE AE EK FEO OE OE OK OK OK RC OE ORE AOE / 


tt 


PICKET: PROCEDURE( NAME ) WORD PUBLIC; 
DFCLARE NAME BYTE} 
Gre GATUSMeePrR( 4. NAME, 2, RETSSPTR ); 
RETURN RETS; 

END; /* LUCK St e/ 


J EGO SO EM EE A IE AE EE EIR AE SEE OE BE BEE OE AEA OE HE AE ESAS AE NE AE AE OE OK AE OE OK OK ES EE IE ETE OE OE SAE ES OE / 


READ: PROCEDURE( NAME ) WCRD PUBLIC; 
DECLARE NAME BYTE; 
GALL GATESKEEPER( S, NAME, @, RETSSPTR 3}; 
RETURN RETS; 

END; be READ ay 


LEGO DG A AE HE Be BE BE ER A HE OS NEE AE HC SEE OE ARK BE RE AE HE AC OE OS AE EC KEE EE SOK AE OE SE NE KK SK AE OE OE / 


Peers >PROGs PROCEDURE( PRCCSID, PROCSPRI, PROCSSTACKSLOC, 
Ee@ieolP, Ee@cscs } PUBLIC; 
DMCLARE ( PROCSID, PROCSPRI ) BYTE, 
Bae CoornekS EOC, PROCSIP, PROCSCS ) WeED; 
DECLASE PROCSTABLE STRUCTURE 


(PROCSID Pe. 
PROcs PRI Se. 
PROCSSTACKSS EG WORD, 
PROCSIP WORD, 
EOC SCS WORD); 


DECLARE PROCSPTE POINTER DATA(GPROCSTABLE): 


PROCSTABLE.PROCSID = PROCSID; 
PROCSTAFLE.PROCSPRI = PROCSPRIS 
Boos GABLE .PROCSSTACKSSEG = PROCSSTACKSLOC / 125; 
PROCSTABLZ.PROCSIP = PROCSIP,; 
PeeOC>TABLE.PROCSCS = PROCSCS:; 
CALL GATESKFEPER( 6, @, @, PROCSPTR ); 
RETURN; 
OND; /* CREATESPROC ye 


3 
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a ee 





LEQ SQ HE BE ER FE AE RE HE HEE AK EAE EAE REAR AE AE HS AE AE AE AE AE AE AE HE AE AE AR AR EF EEE AE EE IRAE OK OE EEE IKE / 


OUTSCEAR: PROCEDURE( 
DFCLARE CHAR BYTE; 


CALL GATESKEEPER( 9, CHAR, @, 2, @)3 
RETURN; 
END; 


CHAR ) PUBLIC; 


LE DL YG FRR RM A AE HEME ME AE AK AK HEME BE AE AK AE NE AE AE HE HE IE AE AE IE HE AE AR AE EE AE EE A FE EE OE A RR AE OK AEE ENE OK / 


OUTSLINE: PROCEDURE( LINESPTR ) PUBLIC; 
DECLARE LINESPTR POINTER; 


/* LINE MUST END WITH °%’ Sy) 
/* AND BE LESS THAN Q@@ CHAR * / 
CALL GATESKEEPER({ 9, 8, @, LINESPTR); 
RETUEN; 

END; 


LEQ SFR EME AE BEAT AE AE BE ME IK AE ENE AE EAE IE NE OK EE NE EE AEE BE AE OE AE OE EEK RE OE DAE OS IEE AE AE IK OK 3K RAE EE AE / 


OUTSNUM: PROCEDURE( NUM ) PUBLIC; [2 NOM ls es oy 
DECLARE NUM BYTE; 
CALL GATESKEEPER( 10, NUM, @, 8, @ ); 
RETURN: 

END; 


JE B16 SRE ME EE AE Be RA SE HE A OK A a EE A OE A a Ee CA Se a a ae ES OK a aK aR RE / 


OUTSDNUM: PROCEDURE( DNUM ) PUBLIC; /** DNUM IS WORD **/ 


DECLARE DNUM WORD; /** DOUELS BYTE **/ 
CALL GATESKEEPER( 11, @, DNUM, @, @ ); 
RETURN; 

END; 


LEB BR ERE OE EE BE IE EAE HE OE HEME AE RE HE ERE EAE NE AEE AE AE AR AE OR SIR AS RE AE TERE FE SIE EE SKC AE EE EE ERE / 


PREEMPT: PROCEDURE( PROCSID ) PUBLIC: 
DECLARE PROCSID BYTE; 
CALL GATESKEEPER( 7, PROCSID, 8, @, 2 )3 
RETUENS 

END; /* PREEMPT ¥/ 


[EBD 1 EERE RE HEE EE OK RENE HE REE AR IK OEE REN BE ORE REE BR OK BE EO SR EE SI RAK CRE SE RE EAR I / 
Mion AS: PROCEDURE (RETSPTR) PUBLIC; 
DECLARE RETSPTR POINTER; 


CALL GATEKEEPER(12, 2, @, RETSPTR); 
END; 
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J GEG BR EE OE AE OE OE OE OK FE OE OK OE EE FEE OE SE SE OE OE A SES IK OE OE A 2 OE OK AE OE ENE AE OK EK AE SE OE AE OK OE OK / 


INSNUM: PROCEDURE (RETSPTR) PUBLIC; 
DECLARE RETSPTR POINTER; 
CALL GATEKEEPER(13, @, 8, RETSPTR); 
END; 


JED DH RRR A AR NE eR He SRA A EK a a a OR a a ee OR tok CR a 2a a a ao 9K aK at a aK a a a ea a 


INSDNUM: PROCEDURE (RETSPTE) PURLIC; 
DECLARE RETSPTR POINTER; 
CALL GATEKESPER(14, 2, 3, RETSPTR)}3 
END; 


J FR AR REIS OR OR I ARE BE OE AE OE AG AE NS SIE BRE BE AE EO OE AIR OK IS I OE OK KE OK OK AAT A AE AE DIK OE AK OK OK OR OK OE EE EAE OE / 
ENDs /* GATESMOD */ 
[FEE AE AR HE BEE HE HE AE EAE BE SE IE OE BE AE OE RE OE IR HE OK FE OE OK FE OK SRA FE AE OK OE OE OK EOE OK BE ASE OE OE OE SE OK OK FE OK OK AE IE OE OK / 


[PE PE BE RE EAE BE ME BE RE ME HK AE AE HK BK AE AE ENE HE HE RENCE REE RE NC AC HEAT AC NE BE AE IE AE AE AE NE Ae HE NE IKE AK AS OE OE KE OK EK OK / 
[BF FS EAE AE MRE AE TE AC AS AC IE AE OE OE EAE AE TEAS EAC ACHE RE BI AE BE AE AE OC OK XE SIE NS AE AE SE RE DIE DK IE DISS OE AE RE OK ORK OS OE EE SEAR AS / 


144 





1G lit BB /A) Gia | 


USER PROCESSES I 


i@eseappendix Mas three parts. It contains the source 
@eee Lor one of the user initial processes, INIT1.SRC. The 
pomimee code in file, PROCI.SRC, is provided. They are 
separately compiled with the LARGE attribute. They are 
ieaeced into PO!1.LNK and the memory map from file, P0O1.MPe2, 
moe provided. The executable code file P01 is loaded onto 


one of the SBC's. 
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J RAEI RE BEES Be RE RE BET REDE A BED A BE SK 2 OBESE OE BCE RET BR ESC OR RE OE DE A AK BIO Ba OE RT BE OK RIED / 
Pe INIVISL P20CESSS de | OEENEEeo=27>e2 */ 
[¥ - an - = - 5 - = + ** 


/* THE CODE SEGMENT OF THIS MODULE WILL BE OVERLAYED ON */ 
/* & SEGMENT RESERVED BY TEE OS. THIS INITIAL PROCESS /, 
/* WILL CREATE ALL THE PROCESS THAT WILL RESIDE ON A REAL¥/ 
* DROCESSOR. ALL CALL TO CREATESPHOCESS MUST 3E MADE */ 


/* FOR EACH PROCESS. cy 
OR mm nn rn nr rr * / 
/* CALLS MADE TO: CREATESPROC & AWAIT‘(TO BLOCK INIT) says 


[RARER AE IEA HE REAR HAE HE BEDE BAKE BR AIK AE IE BEE BK AE a EE a CAE a IK SIE OK BE AE KE OR a TE I a a OE a aK AE / 
INITSMODULE: DO; 


Meee lESPROC: PROCEDURE( PROCSID, PRCCSPRI, 
Peco ommGmobOC eROCSIP, PROCSCS ) EXTERNEL; 


DSCLARH { PROCSID, PROCSPRI ) BYTE, 
WER OCS ST RGKS ECG, PROCSIP, PROCSCS ) WORD; 
END; 


AWAIT: PROCEDURE( EVCSID, VALUES ) EXTERNAL; 
DMCLARE EVCSID BITE, 
VALUE WORD; 
END; 


iets PROCEDURE PUBLIC; 


[FRE ERR AR AR AE NE AEE AE HE OE AEE BE ENE BE AEE REE AE HE AE NE OK AE SK OS HE AES HEE AK SE EA IE OH OE A EB OE AE AE AE EEE IKE AE / 
foe CSCS ER AREA OF RESPONSIBILITY * * * * % ¥/ 
/* MUST MAKE CALL FOR ESCH PROCESS TO BE CREATED. USER mf 


eee PROVIDES ALL PARAMETERS. 
[PREFERS EIR HE HE EE HE BA AE EE AE RE EE ROK DEE RENE RK BK HE OKI 2 EK HS OE a ETI CT A SR SE IC a os ae / 


GALL CREATESPROC( 1, 253, 7@@@H, 96H, 720H ); 


[RR Be AE BENE HE AS AK HE HE AK AC HE AE HS HE AE HE AE KOK AE IK AE AS HE AE HS AE OK HE OK AS ETE NE ENE AE AE I NE TIS E TIS OE NE AR AS AE OK AE OS EE 


sg See ENO R USER PESPCNSISLITY * * * 
[FRE RRS RH AE I AR RTE HAE BIR HE AOE EE AR IRE Se IR ee He a A aK a a aK Re OK 2 a SCD aK AE OK ae a a 2 = 


eee 


/* THIS STATEMENT BLOCKS THIS PROCESS AND ALLOWS */ 
/* THE NEWLY CREATED PROCESSES TO BE SCHEDULED. */ 


CAEL AWAIT( OFEH, 1 );3 
END; /* PROCEDURE */ 


END; /* MODULE */ 
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[FEE HERE FE NE HE HE BE BE NE A AE I A AE I AE OE HE Kt RENE HE ARE NE OK OK OE IE IE OE BE A RE IE IE AE RE OE EE OE OE HEE OK OK EE OE OK AE / 
/* HE HE IE TE AE IE EE HE IE BK OE HE AE IK AC HEHE ACRE Te HE AAC HERE AC AE ME HE FEAT NE IE HE AE AE TE IK AE DE OE OE NE OE OE ORE OR OE OE OK IE ONE EK OK / 


/* PARAMETERS: 


PROCSID: (BYTE) DESIRED ID FOR PROCESS. “FE IS RESERVED. 
PROCS PRI: (EVUeJeDMS ERED PRIORITY. HIGH 15 @. 
ew aS: 255. 
PROCSSTACKSLOC: (WORD) ABSOLUTE ADDRESS OF STACK. MUST HAVE 
ACCESS TO 12@0H BYTES OF FREE SPaCz. 
USER PROCESS MUST BE CODED IN PROCEDURE BLOCK. 
THE OS PROVIDES STACK OF 11@0H BYTES. 
meOO> IP : (WORD) USER PROCESS STARTING ADDRESS OFFSET. 


PROCSCS: (WORD) USER PROCESS STARTING ADDRESS BASE. os 
[BERR RETR EME AE HE HE HE HS HH RENE EH HR FE AK BE BC A CE AE OK AE NE BR AE OE BE DCE AR NEE aR HE I ORC SE Ca BK a BK AE EI OK / 
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[98 FE EM FE HE A BE ARE BEE BE IE EIS BE BE NE BCT 2 BE EE SE BE AE a REA AE AS BEE a EE AE aS BE RE 2 HE AE SS AES AS IK EDK / 
/® PROCESS 1 MODULE KLINSF 6-1-82 rg 
[FB mmm nr rrr ere rr 

/* THIS IS BASED ON THE ORIGINAL DEMONSTRATION TIAT COX */ 
ye AN, x / 
ae an 
* IMPORTANT! AYTTER LINKING AND LOCATING THIS MODULE, x / 
/* THE ABSOLUTE ADDRESS OF THE PROCEDURE BLOCK LABEL, a7 
/* °P1i° MUST BE REFLECTED IN TYE INITIAL PROCESS IN FILE: */ 
/* INIT1.SRC B/ 
/* BE AS AS HE RE AS RE HE AE BK YE OE AE I BI IE IC RC SE IK OK NS RS BS oie AE OS OE OS OS TS IS SOK SIS BS SK RE AS NE HE OK IS AE NK OK BRAC AS HE OK OR ASE SE / 


CSUPPSMODULE: DO; 


DECLARE I WORD: , 
DOGEARR CR DITERALLY “ODE 
LF LITERALLY ‘OAz’ 


DECLARE K WORD; 


BECLARE CSUPP BITE vere pPae 
DECLARE FLDES BYTE DATA(44); 
DECLARE NEW BYTE DATA‘998); 


J FREE HEHE TEI HE BE HOE AS HAE RE HRI HE XS DEE AE ROR OH OK BE IK OR AE OK OE a RCI Oe RE CE OR AE HE OR AC AE aK a RE a / 


DECLARE 
ccm ears INDTIAL( PROC #41. INIT 
criti sier Reso lON  .12.13, 2°), 
PGi ery ne INITIAL PROC #1. WALT 
Neo me ts) , 
VS ocimes es INILTIAL( P20C #1. PERFORMING CLUTTER’ 
SSSUPeRRPSSION: WRAME YY"), 
MSG4 (* ees, TNITIRE. PROC 41. %SDVANCS FILTER *, 
SOS Le EVENT COUNT” ,17;13,°%7), 
MSGS(=) BYTE INITIAL( PROC #1. CALLED READ TWICE.’ 
“ RETURNED: %7°), 
MSG6(*) BYTE INITIAL(’ PiOtC seh TOK nT 
melee e. | SECOND VALUE RETURNED: %°), 
ccc mmr Te INDTIALEL9 15, ° 2°); 


PAG oN Y sero, 


FOR DATA READY” 
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[EE BERS HE AR AE OE BE AE RE EE OE BK ACNE SRE BK AE FE IE OE REE TE OE OK EK AE AE AE AS AE HE IKE CE SIE OE 2K EE OS SK OK OE OK AK OE EE OK / 


AWAIT: PROCEDURE(EVCSID,AWAITEDSVALUE) EXTERNAL; 
Peemank EVCSID BYTE, 
AWAITEDSVALUE WORDS 
END; 


ADVANCE: PROCEDURE‘ EVCSID) EXTERNAL; 
DECLARE "fVCSID BYTES 
END; 


CREATESEVC: PROCEDURE( NAME ) EXTERNAL; 
DECLARE NAME BYTE; 
END; 


CREATESSEQ: PROCEDURE( NAME ) EXTERNAL; 
DECLARE NAME BYTES 
END; 


TICKET: PROCEDURE( NAME ) WCRD EXTERNAL; 
D©CLARE NAME BYTES 
END; 


READ: PROCEDURE( NAME ) WORD EXTERNAL: 
DECLARE NAME BYTE; 
END; 


OUTSCHA®: PROCEDURE(CHAR) EXTERNAL; 
DECLARE CHAR BYTE; 
END; 


CUTSNUM: PROCEDURE( NUM ) EXTERNAL; 
DECLARE NUM BYTES 
END; 


COTSDNUM: PROCEDURE( DNUM ) EXTERNAL; 
DECLARE DNUM WORD; 
END; 


OUTSLINE: PROCEDURE( LINESPTR ) EXTERNAL; 


DECLARE LINESPTP POINTER: 
END; 
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FPR REE EME AS BE BEE EE NE AE RE A AEE BE BEB FE OE DE HE OS AE RE A ASE BK 9 BE OE BE RE AE AAS OE HE TE AE OE OE EB BE BIE 2 Set OK OK AE TK FE RS HE / 


(ee 


PROCEDURE PUBLIC; 
CALL OUTSLINE(GMSG1 ); 


/* CREATE SYNCPRONIZATION PRIMITIVES */ 
CALL CREATESFEVC(CSUPP); 
MeL CRSATSSEVC(FLDES ); 


/* CALL READ AS A TEST */ 
mo= =NAD( CSUPP); 

CALL OUTSLINE( @MSG5 )}; 
CALL OUTSINUM( K );3 

CALL OUTSLINE( GMSG7 ); 


/* CREATE SSQUENCER PRIMITIVES */ 
CALL CREATESSEO(NEW)3 

y= CALL TICKET TWICE AS A TEST */ 
K = TICKET(NEW); 

TICKET(NEW) 3 


| 


K 


CALL OUTSLINE(@GMSG6);3 
BALL CUTSDNUM( £ )3 
CALL OUTSLINE(@MSG7); 


[F8 E FE IK AR AE HE OR BE AE BE AE NE HE TE NE HRS BE NE EAS HE AK AE EAE HE SAE HE BE BE AC IE AE AE EE BIE OIE IE AE IE OE SAR EE ME OEE A OE / 
/* PROCESS 1 LOOP BEGINS HERE = / 


I= 1; 
DO WHILE (I <= OFFFFH); 
CALL OUTSLINE(GMSG2) ; 


CAL Awh LT (CSUPP, 1}; 
T=1+1;3 es 


CALL VOUTSLINECGMSGS) ; 
CALL OUTSDNUM(I); 
CAPE OUTS LINE(GMSG7); 
BOok =O TO 127085 
Ohne rims (250); 
END; 
She MOUTSLINS(@MSG4); 
CALL ADVANCE(FLDES )}; 


mo; /* WHILE */ 


mies, = /* PL */ 
END; /* MODULES */ 





ISIS-II “cs-26 tcc 
LOCk6 PFL.ENX 2DD° 
INITMODULE CODE‘a2é 
CSUPPMCBULS CCDF’29 
CSUPPMCDULE Data( 27 
GATSMOD_CCD=(e7700% 
GATEMOD DATA’ A7CRQGE) 
STACK (O72CGCE)) VE 
SEGSIZE( STACK (1244) )& 
RS(Q TO 27PFR) 


’Q “Ary 


MmMma Qi ty-0 
‘GQ .d~—— Ne 
Vr 


ve 


«a ~~ 


peer TABLE CF MODULE INITMODULE 
g2AD FROM FIL® P@i.UNKk 
Weld eN TC FILE sFQ@sP¢l 


Bask Seow 2 Poy yMso, or OF Roewie sl {PhS Ye OL 
geeo. Oee2H PUB INIT 27204 Jd4@96€H PUBS Pil 

Beers VectT AR PUSS ININUM “ues O20er. 23 . LNNUM 
Megs %O1ERF PpUS INCHAT Cee Se Cel sar B PRESMeT 
Maren Oise PUP CUTDNUM Oy Os O1S5R- Pua CUTNUM 
Mere] @ic4PF PUR OUTLINE (Ge) Cl4in orbs CUTCHAR 
eyo. CH64e PUB CREATEPROC GigGo = 299 C8E AUS SAD 

Wee oa «88CSCY pus TICKET Ueeon es oer el VPUS CREAT 2oL0 
Meeee OCSGE PUR CrTsTERVC V77VR C€CUSSH PUBS ADVENCE 


Beeo- Offi PURE AWAIT 

eeoay MAP OF MCTULE INITMODULS 
Bee FROM FILE P71.LNK 

Mies EN TO FILE sFe@:POl 


SEGMENT MAP 


SeeART S0P LENG™H ALIGN N4Me CLASS 

C2ZE00H Wa ero Vaal G@G512 W ENT EMODUE Ss COD COve 
=a 

0 Zee yBel Pee oed AOC CH iW Pet) Oi oat DATA 
=n 

O72GGE C7Vrr& 01005 a SAG Sys o 

O72? Of Oa Bie) Gila ia lel a] isU Peay OpuLs CO CCE 
=e 

B67 5802 2 Coton Gk iy Y TouPeMOR ios Ds DATA 
-T 3 

O77 284 O794DH A249 W GATEMOD CODE COD: 

O7SnGH 07 9S QO2OAR W GATEMOD DATA DATA 

er oe AH CV 9OR24H AZ OCH W Minor geile te & 


1S | 





Pee eno tk kK 


USteeerOe toot. | 1 | 


mmesmanppendix Nas three parts. It contains the source 
Seee for one of the user initial processes, INIT2.SRC. The 
source code for user processes in Plles= PROCZeonCr 
fees. okRC, and PROC5.SRC 18 provided. They are all linked 
Mmieoriile, POe2.LNK. The executable code file, PO2 is loaded 
mimeo One of the SBC's. The memory map in file, PO2.MPe, is 


eso provided. 


Lieve 





[FE PERE 3 BE BE OR BE EE ME AAS FALE BE BE AE AS BEAT HE AC SESE OK OK AE AE OE OE RCE OE AE AE AE OE OEE OE BE AE NE RE AK AC ACE OE Ce IE AE EE EEE / 
7* UNITIAL PROCESS me 04 O Nt eG alec ay 
[#------------------—— ------~ --- -- +--+ +-- -+ = +--+ = - = = ¥/ 


/* THE CODE SEGMENT OF THIS MODULE WILL BE OVERLAYED CN */ 
/* & SEGMENT RESERVED RY THE OS. THIS INITIAL PROCESS ay / 
/* WILL CREATE ALL THE PROCESSES THAT WILL Q2"SIDE ON A * / 
/* REAL PRCCESSOR. Aeeechtcs TO CReATNSPROCsSS MUST BE */ 
/* MADE FOR EACH PROCESS. <7 


Mm ee a a a - F / 


/* CALLS MALE TO: CREATESPROC & AWAIT(TO SLOCK INIT) ars 
[FREI BE TE HE HE EE AEE HES BEE EAS NE HE HC SA ae SO aK AE CE a EE i a eB ae SE Ke ag NCE Be a ke he Sa / 


INITSMODULE: DO; 


CREATESPROC: PROCEDURE ; 
J PROCSCS ) EXTERNAL; 


Pooueme { PROCSID, PROCSPRI ) BYTE, 
PGs nek boone etocsie, PROCS CS) WORD; 
END; 


AWAIT: PROCEDURE( EVCSID, VALUE ) EXTERNAL; 
DECLARE FVCSID BYTS, 
VALUE WORD; 
END; 


INIT: PROCEDURE PUBLIC: 


[3 ER HEH HEHE HE RET BEE HE HE SR EE BER HE DE AE EE SEE SE ERE a Ea A AR a SE A RC eo NE aK ae 
eo 06CUMCUCUUUER AREA OF RESPONSIBILITY * * * * 
feoeeeUst MAKE CALL FOR EACH PROCESS TO BE CREATED. USER * 
Poe ROVIDES ALL PARAMETERS. 


oS, 
De ted 
[FERRARA BE RE BE AE IE AE AE BE NCE AE AK DOE TRAE ACE TERE OE TIRE IEE OK OK AE AS HK BK HE CTE ME AS AS KK OK AS IR OE IS OE oi AE AE AS OE Me OR 


a 


mom CREATNSPROC{ 2, 245, 77@CH, @4H, 72@H ); 
CALL CREAT®SSPROC( 3, 253, 9@00H, 84H, 923H } 
CALL CREATESPROC( 5, 254, 38200H, O6E, 8208 } 


1 
; 
J RR RBG RE FS HE HE RE HE BS HE BH OK A I BE RE BRE BE BK IC IK fe Be BR BE 6 BS A IK A BO OI SE OK 2S IE 9S OE EEO AEDES DE IEE BENE AE / 
j= Pee NOt US Sh TUSPONSIBLITY * * * a 
[RAR ERE RE AEE BEDE IE OE AE HE SE AE IE HE PES AEN HE AE BET RE RCE BE AE OR RE NE AE NE NE RE IE BCE AEE NE AK NE BE OIE AE SESE HIE BE NEE DE / 


foes STATEMENT BLOCKS THIS PROCESS AND ALLOWS */ 
foro! NEWLY CREATED PROCESSES TO BE SCHEDULED. */ 


CALL AWAIT( @OFEH, 1 ); 
END; /* PROCEDURE */ 
END; /* MODULE ¥*/ 
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we de We 
JR EE TE AR RTE EE Oe ATE 
[FR BR BR BE EAE AC HE 96 HS FRE OR EO OE OE SE? 
Ie 


J= PARAMETERS: 


aly 
Cd te 


i “4 : 


SE HE HE AE TE 2S SE ES OK aK a SOK aK a CE Oe a aK a aK a RE / 
fea oka oie sie deste ake / 


als ale ate ale aie aly ale ate aly aly ale ale se ats aly ate ve we ale 
“> 78 x4 2,8 Or yr eR oe 28 oe 8 aay yp a aS cm 2, 


3 
vi) 
st 


eroCcolD: CP emotR MD IS) FOR PROCESS. 82 IS RESERVED. 
BeOCSPRI: Coe eownea De PRICAITY. .BIGH IS v. 
DOM Beis 255. 
PROCSSTACKSLOC: (WORD) ABSOLUTE ADDRESS OF STACK. MUST HAVE 
ACCESS TO 120H BYTES OF FREE SPACE. 
USER PROCESS MUST BE CODED IN PROCEDURE BLOCK. 
THE OS PROVIDES STACK OF 1108 BYTES. 
PROCSIP: (WORD) USER PROCESS STARTING ADDRESS OFFSET. 


PROCSCS: (WORD) USER PROCESS STARTING ADDPESS BASE. a / 
[RPE RH AETHER HE BE HE HEE EE HE HET EAS OE CE AS AR HE AE EE EK A SAE SS SED AEE ERE 3 CE SH a a aE a AE AE / 





[FERRE ERE HE BEE TERI AE HE EE BI CE OR RS EEE BE A a KO 2 BOK aK AE OK BOK BE aK a a a Nea a a a / 


/* PROCESS 2 MODULE XLINEF 6-2-82 */ 
[PB mn nr rrr rr rare * / 
/* THIS IS BASED ON THE ORIGINAL DEMONSTRATION THAT COX */ 
/* RAN. */ 
x x / 
/* IMPORTANT! ONCE THIS MODULE IS LINKED AND LOCATED, * / 
/* THE ABSOLUTE ADDRESS OF THE PROCEDURE BLOCK LABEL, * / 
/* °PQ2° MUST BE REFLECTED IN THE INITIAL PROCESS IN FILE:*/ 
/* INIT2.SRC * / 


[FE FE PEE BR EE BE AE AK FE NE BE HE AS EAE A OE EE BES AE A OE AE AR HE AE IK BE OE SRE A OR KE ASE OK A OR OK OEE OK KE EK AE / 


FLDESSMODULE: DO; 


DECLARE I WORD; 
DECLARE 2 BYTE; 
DECLARE CSUPP BYTE DATA(S3); 
DECLARE FLDES BYTE DATA(44);3 


[8 PE REE A FE BE HE FE IE AE BE AE HE BEE IK AE AE SEE AE A A BE AR IE AE BE IE I FI IE EE KK OE AE IK NE AK AEE AE AE OE EO AC OE OK OR AK OE / 


DECLARE 
Moca =e SYie INITIAL( PROC #2. INITIAL ENTRY INTO’, 
Seiten Meston .bo,10.° 2°). 
MSG 2( *) ame et P88 #2. WAIT FOR DATA READY’, 
Sol Coe). 
MSG3(*) BYTE INITIAL( “PROC #2. PERFORMING FILTER ”, 
“DESIGN ON FRAME # 2%”), 
MoctC ese eENt thE PROC #2. ADVANCE CLUTTER °, 
“SUPPRESSION EVENT COUNT’ ,1%,13,°%")., 
MeeMoco (=) SYTHE INITIAL(1@,13,°%°);3 


J PFE IE EET ES EH HEE AE IR II HE BK BR AE OO BE 2 a OK A A AS BK A OK XE BK OK NE OE OK aK OE A OK aKa / 


AWAIT: PROCEDURE(EVCSID,AWAITEDSVALUE) EXTERNAL: 
DECLARES EVCSID BYTE, 
AWAITEDSVALUS WORD: 
END; 


ADVANCE: PROCESDURE(EVCSID) EXTERNAL; 
DECLARE "EVCSID BYTE; 
END; 


CREATESEVC: PROCEDURE(NAME) EXTERNAL; 
DECLARE NAME BYTE; 


y 


OUTSLINE: PROCEDURE(PTR) EXTERNAL; 
BeELARE PTR POINTER, 
END; 


(toys 





OUTSDNUM: PROCEDURE(DNUM) EXTERNAL; 
DECLARE DNUM WORD; 
END; 


/ ERE EEE HE HEHE EEE EEE a SE REA a AE OS SE oft 2 REO REO SS A OE A aK eA OE a a a a ES a A AE COKE a / 
Beer OCECURE PUBLIC; 

CALL OUTSLINE( @MSG1 ); 

7* CREATE THE SYNCHRONIZATION PRIMITIVES */ 

CALL CREATESEVC(CSUPP);5 

CALL CREATESEVC(FLDES }; 

/ 9 EEA EE HE BRE II SE BE SE aE A a a AE A ae a OR a a a A a ea BR A OK A OK Me NE aE a OR RE / 

/* BEGIN PROCESS 2 LOOP EERE =], 

I = @; 

DO WHILE (I <= OFFFFE); 

CALL OUTSLINE(@MSG2); 


CALL AWAIT(FLDES ,I); 
ele + O41 


CALL OUTSLINE(@MSG3) ; 

CALL OUTSDNUM(I); 

CALL OUTSLINE(@MSG5); 

DO Z = @ TO 1003 

CALL TIME(25@);5 

END; 

CALL OUTSLINE( @MSG4); 

CALL ADVANCE(CSUPP); 
END; /* WHILE */ 


END; eee / 
END; /*MODULE */ 


sie 





Ge ea a0 eee ae ae Mm em eae aR AN ONS oe NR vs oR Ae Mam OHS HIE MR DG OED IW VS MIE AO OF AES OWE AIT MV AE MEE NE ALE AS AIRE ME OE Ie Oe ONE Ok OE OE BE ALAR HE / 


Pe PROCESS S&S MODULE KLINE?F 6-2-82 */ 
[*%-------- —------ ---- - - -- -- -- - - - - -- - - - - - + - - = - me / 
J* IMPORTANT! ONCE THIS MODULE [IS LINKED AND LOCATED, ao 
/* THE ARSOLUTS ADDRESS OF THEE PROCEDURE BLOCK LABEL, = 


/* °PO@3° MUST BE QEFLECTED IN THE INITIAL PROCESS IN FILE:*/ 


Mee NITZ SEC. = 
[FERRARA HEHEHE KE AE EE HE EE AE I SNE HE BRK NE AES A BE BS BK EC SS OS SC BK OE 2 BE A SCE OK OE OK aE Bs a Oa AE / 


FLDESSSMODULE: DO; 


DFCLARE I WORD; 

DECLARE CR Lito LY “Ope ~, 
LP err me nt yY “OAH 

DECLARE i CoOy & 

DECLARE Pires ener DAMA (44); 


Pat rae AS cas ore SO ese re As AS i IN rors A AID Pa A AS eae EA ES ON AR AE AR AS EOE SS OS AE AR OR TSS RE AR OE OE / 


DECLARE 

MSG1(*) BYTE INITIAL( “PROC #3. INITIAL ENTRY’, 
Tire hLlne DESIGN PART 2°,10,13,°%"), 

MSG2(*) BYTE INITIAL( “PROC #3. WAIT FOR DATA’, 
Pare 6, SC), 

MSG3(*) BYTS INITIAL( “PROC #3. PERFORMING PART 2’, 
° FILTER DESIGN ON FRAME # %”), 

mMeeei =) PYTT INI TIAL(10,13,°%7); 


[RRP ERE AR TRAE BE OE AE AE HS HE HE NE RE ASK BE SENS BE EAE OK A AE AC AE KIS AE OE KC AEE BIE BIS IE ES AE 2 AAC OE OS BENE OE AEE OE AACS / 


AWAIT: PROCEDURE(EVCSID,AWAITEDSVALUE) EXTERNAL; 
DECLARE FVCSID BYTE, 
AWAITEDSVALUE WORD; 
END; 


ADVANCE: PROCEDURE(EVCSID) EXTERNAL; 
DECLARE SYCSID BYTE; 
END; 


CREATESSEVC: PROCEDURE(NAMS) EXTERNAL; 
DECLARE NAME BYTE; 
END; 


OUTSLINE: PROCEDURE(PTR) EXTERNAL; 
DECLARE PTR POINTER; 
END; 


OUTSDNUM: PROCEDURE(DNUM) EXTERNAL; 
DECLARE ONUM WORD; 
END; 


iow 





J 5 FR BS HE HEHE HS HS HE HE AR IE BRE TE BE 2S BE NEA ACI ENS EE HE BE AE AE DE BK AE AE NE HS ACHES EAE RENE AE EE TE I DEKE OE REE ARTIS A 
P3: PROCEDUR® PUBLIC; 
CALL CUTS L We (OCMSG1); 


/* (CREATE TYE SYNCHRONIZATION PRIMITIVES */ 
CALL CREATTSEVC(FLDES); 


[Fe PRR AE HE BEI HHS TR TE IEE A HE ARTE Ne Be REE AE ETE A REDE BK NERC RE Be MEET OE NE OK TI TE ERK BAEK SE OE SK AEE / 
/* PROCESS 3 LOOP BEGINS HERE ai 
T=; 


DO WHILE (I <= OFFFFS); 
GALL CUTSLINE( GMSGe) > 


CALL AWAIT(FLDES ,I); 


T=T1+1; 


GALL pee eee) 
CALL OUTSDNUM(I); 


CALL OUTSLINE(QMSG4) ; 


DO-Z = 9 TO 30; 
CALL TIME(250); 
END; 


END; /* WHILE */ 


mee) /* PS */ 
END; /*MODULE */ 
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[FETE RE BE BE BE HE SE AE AE EE AE TIE SE 2 AE SIE EO BE SEAS OE EAS EE Hae EAE SE Se OE EE OE AE FE AS 2K I AS EAC 2 ARE OE OE EE AS Oe / 


Oe PROCESS 5 MODULE RON ior 2 2. 


/* THIS PROCESS ACCOMPLISHES TESTS OF THE OPERATING SYSTEM*/ 
/* NOT YET DONE. ALL OF THE NEWLY ADDED INPUT SERVICES aA) 
/* WILL BE TESTED RERE BEFORE THE PROCESS GOES INTO IT’S */ 
/* LOCP. THIS INCLUDES PREEMT. se! 
/* THIS PROCESS ACTS ON DATS LOCATED IN A 3UFFTER IN 4 / 
/* SHARED COMMMON MEMORY. PROCESS 4 , RESIDENT IN SOME 7 
/* OTHER CPU, WILL OUTPUT THE DATA AFTE? IT HAS BEEN PRO- */ 
/* CESSED. THE EFFECT WILL BE EVIDENT ON THE SCREEN IF * / 


/* THEY COORDINATE CORRECTLY. sah 
/% */ 
/* IMPORTANT! AFTER LINKING 4ND LOCATING THIS MODULE, sa 


7~ MAKE SURE THE ABSOLUTE ADDRESS OF THE PROCEDUZPE BLOCK */ 
y= LABEL, “P@5°, RAS BEEN REFLECTED IN THS INITIAL PRO- a 


peechos IN FILE INIT2.WRK yy 
[PRAIA BE AER EHS HS ARM HR AE BE AR OE EE I HE SCE aE NE 9 a Oa AE OK 2 EE a aK OK EE 9K ED aK A a aa IE / 


PROCSSMODULE: DO; 


DECLARE 
I Bee. £ 20rd, 
FOR SVER LITERALLY “OFFEH’, 
MONITOR Dengeki 2h , 
INCHR Bier 
WCRDSVALUE WORD, 
BYTESVALUE Bk, 


GLOBALSBUFFER(73) BYTE AT {‘OEG70GQE), 

MOCALSBUFFER (72) BYTE, 

PROC4S5SEVC1 PebettrPr At ( 1CH). 
PROC4S5$2VC2 Poem N TT PAL. (iia): 


[FF EERE AR RAE Be HE Bee BE RE AE Oe Bee HE HE RE AE BE AE HEAR SEAR IE EE BE AE AE AEE AS SR IE AS BE AE EE EAR EI AE 32 


+ 
St 
4 
st 
3 
3 
+ 
“t 
+t 
St 
3 
™ 


DECLARE 

meee Rye INITIAL( “PROC #5. INITIAL ENTRY%“), 

mee) SYTe INITIAL(19,13, PROC #5. PROCESSING DATA’, 
SeEN Saar aD BUPFFERZ”). 

Mae) BYT™ TNITIAL(190,13, PROC #5. FINISEED PROCESS’, 
SOG —155105°%")., 

Meee) BYTE INITIAL(1¢@,13,°DC YOU WANT TC PREEMPT THE’, 
SeVOuTTOR(Y OR N)7%°), 

mreor~) BYTE INITIAL(19,13, °%°); 


/ 98 95 BRS ER HE HE MEE BE BEE BE AS OK BE AE BRAK BR OS HE BE 96 EA RCE AE OK SK RE BO AR OK RE OI EO AR BEE OK SEO OK RS / 
AWAIT: PROCEDURE(EVCSID,AWAITEDSVALUE) SXTERNAL; 


DECLARE EVCSID BYTE, AWAITEDSVALUE BYTE; 
END; 


ie 





: 





ADVANCE: PP20CEDURE( 
DECLARF TVCSID BY 
END} 


EVCSID) BXTERNAL: 
TE 


° 
a) 


CREATESEVC: PROCEDURE(NAME) EXTERNAL; 
DECLARE NAME BYTE; 


END; 

CREATESSEQ: PROCEDURE(NAME) EXTERNAL; 
DECLARE NAME BYTES 

END; 


OUTSCHAP: PROCEDURE(CHA2) EXTERNAL; 
BeCLARE CHAR BITE; 
END; 


INSCHAR: PROCEDURE(RETSPTR) EXTERNAL; 
DECLARE RETSPTR POINTER: 
ENDs 


PREEMPT: PROCEDURE(VP$ID) EXTERNAL; 
DECLARE VPSID BYTE; 
END; 


QOUTSLINE: PPROCEDURE(PTR) EXTERNAL; 
DECLARE PTR POINTER; 
END; 


INSNUM: PROCEDURE(RETSPTR) EXTERNAL; 
DECLARE RETSPTR POINTER; 
END; 


INSDNUM: PROCEDURE(RETSPTR) EXTERNAL; 
SOC LARE RETSPTR POINTER; 
END; 


OUTSDNUM: PROCEDURE(WORDS ) EXTERNAL: 
DECLARE WORDS WORD: 
END; 


CUTSNUM: PROCEDURE(BYT) EXTERNAL; 
DECLARE BYT BYTE; 
END; 





/ 8 FRE AE RE FEI HERES BBE IK BEI BE IR AE SK SRE AE REE DES OK RE AC DKS 9K HE NERS AE BE OK BE REAR AERC HE BR OK TE BIE AE EEE OS_/ 
pore raOCLOURZ PUBLIC: 


CALL OUTSLINE(@MSG1 )3 

CALL CREATESEVC(PROC4S5SEVC1); 

CALL CREATESEVC (PROC4S5SEVC2) 3 

DO I = 6 TO 693 
GLOBALSRBUFFER(I) = °.73 


END; 

GLOBALSBUFFER(@) = “X’$ 

K = @; 

[FPR ITE ORE HEE He HE AE AI AIH A RE AE AS SA a a a a Ea a a a ae ae ae ee 2a ae 2 A AEA OK / 
/* PROCESS 5 LOOP BEGINS HERE a7 


DO WHILE FOREV=R; 

CALL AWAIT(PROC4S5SEVC1,K);3 
I? K = 35 THEN CALL PREEMPT( MONITOR) ; 
are ee, 
CALL OUTSLINE( @MSG2); 
DO I = @ TO 693 

aN) =—CnO sos Grr het oe 
END; 
foe 0i5 
DOMKEITLE LOGALSBUPFER(I) <> “X’;3 

jee [| +>) 
END; 
IF I = 69 TEEN LOCALSBUFFER( 
Root LOCMISBUFFER(I +1) = ° 
MOCAUS BUMPER (IL) =o. $ 
BOwt = @ TO 69; 
GLOBALSBUFFER (I) = LOCALSBUFFER(I); 
END} 
fant OUTSUINE( CMSG3); 
CALL ADVANCE(PROC4S5SEVC2) ; 
END; /* DC FOREVER */ 
END: /* PS */ 
END; /* PROCSSMODULE */ 


Zoe = 2) ioe, 
Kees 





ieee Gimics-Sc LOCETSS, 


peCse 72. LNK 
INITMODULE CODE(%2870H) ,& 


FLDESMODULZ CODT( 472245 | 


FLDESMOCDULE DATA 


(075008), 


GATEMOD COD?T(7770CH).S& 
GATEMOD DATS (A79E07),& 
PROCSMODULE CCIE‘ 282008), 
PROCSMODULE DAT!(2@850CH) 
FLDZSSMODUL= CODE (29220F 
FLOESSMODULE DATA (@95708 


STACK (27 
SECSIZ=( 
RS(2 TO 275TH) 


CS?H)))S 
STACK(190448 


‘)8 


Oe a 
Pie at Soto LOM ENT 


txJ 


Peres 0-6 1? 
SCE& 


BeeecL TASLE OF MODULES INITMODULE 
READ FROM FILE P?@2.LNK 
WRITTEN TO FILE 


BASE 
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2927H 
C77 OH 
O’7'7OE 
C778 
o77035 
87708 
Q@rrZ2i 
077 OH 
O779OH 


meron t MA? OF 
READ FROM FILE PAZ. 
WRITTEN TO FILE 


OFFS IPE Sano. 


O¢der 
OCV?4H 


J2e0r 


OikBH 
C1ASH 
21648 
O2Y4H 
C@SCH 
Biv eG 
COUCH 


me 
1 O/ie 
PUR 
cus 
10) 
PUE 
ieee 
205 
balls = 
eves 


¥H3:eO2 


B45sh Cees eon 1h igesy MS0L 
INT? Q729F 29@4H PUB Pe 
PS Gamo? “OCOCR” PUB PS 
INDNUM OIF Zeeor Pus INNoM 
INCHAR rages OCH PUB) Resi PT 
OUTDNUM Cae CASS2 PUSS OulNUM 
OUTLINE Cage e0uril Eee” CUlCHA: 
Carne POC GU Oe Ced Fis READ 
pg Latah eae Gurr 203 Cae ate ome 
Clee ay G Cracoe  DCOor | PUL “ADVANGE 
AWAIT 


VODUDS SiN TMODUL FE 


LNK 


¢47@2:PG2 


Hey: 





S 


a4 


BART 
CEBACH 
028608 


OVOOGH 
C7200H 


O7S500H 
C77CCH 
OV79EDH 
Gea200H 
G&ES500n 
C92CCH 
BS58GH 


EO7008 
HO@746H 


GMENT 


MéP 


SOMO rs 
Cesar a 
Ce2ener 


O70 Aare 
G7 285k 


OV SBOE 
C794DH 
g79kOH 
GE3414H 
OStneH 
YI220H 
YO5eFR 


EO7458 
4746 38 


TaNG?s 


1804 
O@3ER 


AAB6U 
CE4FH 
OOOAA 
21428 


COED 


W 


ALIGN NAME 


INITMODULE COD 
INITMODULE DAT 
=— 4 

rnc 4 
FLDESMOLULE CO 
-DF 
PLDESMODULE_D& 
-TA 

S8™EMOD CODE 
GATEMOD DATA 
PECCSMODULZE C 
-D? 
PRCCSMODULZ DA 
Th 
FLDES3MODULE_C 
~ODF 
PLDESSMOLULE_D 
-AT! 

(ABSOLUTE) 

EMCRY 





APPENDIX L 


USE ICES S Seine! 


= 


iteesmanpend)x has three parts. It contains the source 
code for one of the user initial processes, INIT3.SRC. The 
pemree code for user processes in file, PROC4.SRC, is 
provided. They are all linked into file, PO03.LNK. The 
executable code file, P03 is loaded onto one of the SBC's. 


meer memory map in file, P03.MP2, iS also provided. 
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Eagan a ES EE eK RE A a EE a / 
yom INITIAL PROCESSS P-4 KLINEF 5-27-82 */ 
: a a a nn a nn nnn nnn a= Sy 

THE CODE SEGMENT OF TEIS MODULE WILL BE OYERLAYED ON */ 
is A SEGMENT RESERVED BY THE OS. THIS INITIAL PROCESS | / 
/* WILL CREATE ALL THE PROCESS THAT WILL RESIDE ON A REAL*/ 
/*® PROCESSOR. ALL CALL TO CREATESPROCESS MUST BE MADE ¥*/ 
/* FOR EACH PROCESS. * 


/* CALLS MADE TO: CREATESPEOC & AWAIT(TO BLOCK INIT) a! 
[RPE RETR HE RIE HE HEE BCE SE REE RE BEE ROO He AE HE a AE a OEE A Re DE I aK eS ak Be AE OR ee a a ae aca ak ae a aa a / 


INITSMODULE: DO; 


CREATESPROC: PROCEDURE ( PROCSID, PROCSPRI 
fle Gore 


OCSSTACKSLOC, PRO , PROCSCS ) EXTERNAL; 
DECLARE ( PROCSID, PROCSPRI ) BYTE, 
(PROCSSTACKSLOC, PROCSIP, PROCSCS) WORD; 


END; 


AWAIT: PROCEDURE( SVCSID, VALUE ) EXTERNAL; 
DECLARE EVCSID BYTE, 
VALUE WORD; 
SND; 


mit: PROCEDURE PUBLIC; 


[FE RE RE AE MEAS HE BE FE HE AE AE AE AE IE EE EE AE BE AE HE RE HE NE AE OK OE AE EE A HE HE AE SE OK Se EAE OK A OE OE EE OK OEE OE OE EE AE OK / 


La * * USER AREA OF RESPONSIBILITY * * * * * ¥/ 
/* MUST MAKE CALL FOR BACH PROCESS TO BE CREATED. USER */ 
/*® PROVIDES ALL PARAMETERS. * / 
[REE RE AR ENE AE AE RE OF TA HE OK AE ES TEAK AK Me IR AE HE SNE KK AS AS OE IE AE OE OE NK OE OK OE OK KE ASK HE NS KES ERE AE OK OS AE TE MEE HE / 


CALL CREATESPROC(4, 5, 7000H, 96H, 287208 );5 


J PEPE RE HE KE EAE HE HE HEHE HE HE BE AE NE HE BE HE NEI AR BE AE AE RENE EE OE IE AE EE A AK A EE AR OS OK EE EAS SRE AE OE OE OE ENE TE / 


7 oo ene OF USER RESPONSISLITY * * * aa 
[REE IE SEI REE INE REE BE REE RE RE CE OE SK SE BK A SEE BCE SC A SE CE BE A aE EE a OE / 


/* TRIS STATEMENT BLOCKS THIS PROCESS AND ALLOWS */ 
Peete NEWLY CREATSE PROCESSES TO BE SCHEDULED. */ 


CALL AWAIT( OFER, 1 ); 
END; /* PROCEDURE */ 


END; /* MODULE */ 
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Vo BES TSS AK AK SS OS ETE HS AC HE EAS DK SEK HE AS HIS ORS TIRE AE BS OE AS RE AE OI SE KS OE ARSE AR AE AE IE BS AS AAS AAR AC A TEAR EAE AE / 
Ye ee a ee oe 2 ME HE BE IE NE RE AE EAE HAE AK AK HS HK AE AE AS HE ACHE AE IK AE AE AES AE Ae aS ME AE EAE AK AE AEE ETE EAS AS KE OK OK IK IE / 
yo 6OMUM PARAMETERS: 


7 


PROCSID: (Bye ) DESIRED If FOR PROCESS. “FE 
PaOC> PHI : (BYTE) DESIRED PRIORITY. HIGH IS @ 
OMe 1S COO: 
PROCSSTACKSLCC: (WORD) ABSOLUTE ADDRESS OF STACK. MUST HAVE 
ACCESS TO 12@6H BYTES OF FREE SPACE. 
USFR PROCESS MUST BE CODED IN PROCEDURE BLOCK. 
PeieO> EROVIDES STACK OF TIGR BYTES. 


IS RESERVED. 


BeocsIP: (WORD) USER PROCESS STARTING ADDRESS OFFSET. 
PROCSCS: ‘WORD) USER PROCESS STARTING ADDRESS BASE. a7 
/ 38 28 He He A eRe He OAS BOE AR a aS BS 2K oR aR ERR SE a eae a a AS AE AEE a BCH EA BR NS a a aa a / 
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[FRR ET TET BFE HARI BET RE I I HEE NEO SE NE RE BES BEE RED A OIE 9 CA BS PE DICE A RE RO BR IE / 
/* PROCESS 4 MODULE KLINEF 6-2-82 */ 
ee */ 
7* IMPORTANT! AFTER LINKING AND LOCATING THIS MODULE, 7 
7 eak ee oume [hs ABSOLUTE ADDRESS OF TEE PROCEDURS BLOCK */ 
* LABEL, °P@5°, HAS BEEN REFLECTED IN THE INITIAL PRCO- */ 


7* CHESS IN FILE INIT2.WRK xe / 
[FRR ARE HE EAS HEE AE HEI HE RE BEB SKB BE AEB BED OE AE OK AE SE AE OE DICE DK OE ER BRA BK SAS AE AE AK A OK OKA OK AE / 


PRCC4SMODULE: DO; 


DECLARE 
ion, J ) BYTE, K WOED, 
FCREVER PMR Ah oY OeeH . 


GLOBALSBUFFER(70) BYTE AT (@E@70CH), 

LOCALSPUFFER (70) BYTE, 

PROC4S$55EVC1 Le Teen (20H), 
PROC4S55EVC2 Boe lGNer rs cdl H)% 


[38 ERE AR AR AR MBE HE AER BE EAE EE AE AE DIRE AE HS OE OE BE BE BE NE AE IEE SE SE EO AE AE NE IEE OE EK EE OS EEC EO OE KE / 


DECLA3E 
Moos) SYTE INITIAL(19,13, 2%); 


[BRE PERE BS EAE AE BE AE RR FE OS BEE RE OE Oak RE EAE ESE AE ES AE OIE SE AE HE OK AE TE OR OS SE OE BIE EAE OK OS AE RE OE AEE SAE E/ 


AWAIT: PROCEDURE( SVCSID,AWAITEDSVALUE) EXTERNAL; 
DECLARE EVCSID BYTE, AWAITEDSVALUE BYTE; 
OND; 


ADVANCE: PROCEDURE(EVCSID) EXTERNAL? 
DECLARE EVCSID SYTHE: 
END; 


CREATESEVC: PROCEDURE: NAME) EXTERNAL; 
DECLARE NAME 3YTE; 
END; 


CUTSCHAR: PROCEDURE(CHRA®) EXTERNAL; 
OOCLARE CHAR BYTE; 
END; 


OUTSLINE: PROCEDURE(?TR) EXTERNAL; 


DECLARE PTR POINTER: 
END; 


hoy 





[PERE AER BS RAE AE HE AE NE BE AEE BENS EATS EAE FE AE AS BS RCE AE HEAL EE AS FR BE I AE AE NE AE AE OE EAE AEE AE AE TAC EE SE BE NEAT AE / 


P4:;: 


PaGoeo0ns FUBLIC; 


CALL CREAT@SEVC{PROC4$5SzVC1) 3 
GOO EAT USEVC (PROC4S5SEVC2)3 
SE ISTE ES SERIE SIE Sa SI AS SE SS SE ae re ted 
/* PROCESS 5 LOOP BEGINS HERE 27) 
K = QG@18;3 
DO WEILE FOREVER; 
CALL AWAIT(PROC4S5SEVC2,X);3 
ek te, 
Ment = @ TO 69; 
LOCALSBUFFER(I) = GLOBALSBUFFER(I);3 
BND; 
BOor = 8 TO 69; 
CARL OuUrseH na (LOCALSBUREER(1)); 
END$3 
CALL OUTSLINE(@QMSG9Q); 
em = 908 1. 255. 
CALL TIME(25@);3 
END; 
GAES 4D VANCE(PROC4SS5S=VC1); 
END; /* DO FOREVER */ 


END; /* P4& */ 
END; /* PROC4SMODULE */ 
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ISIS-II “cS-96 LOCATER, 
LOC86 P@Z.LNK ADDRESSES 
INITMODULE CODE(@2E20H) 
PROC4MODULE CCDE( 72208) 
PROC4MODULE DATA(75@2H) 
STACK (700@3)))& 
SEGSIZE(STACK{(10@8) )& 
RS(@ TO 71FFH) 


WARNING £6: SEGMENT IN RESERVED SPACE 
SEGMENT: INITMODULE cCOD2 

WAENING 56: SEGMENT IN RESERVED SPACE 
SEGMENT: STACK 


SYMBOL TABLE OF MCDULE INITMOLULE 
Peep FLOM FILE PES.LNK 


WRITTEN TO FILE :FG:203 
BASE OFFSET TYPE SYMBOL BAS® OFFSET TYPE SYMBOL 
9280H OG72H PUB INIT C722H GOOE6H PUBS 4 
97552 @22D4 PUB INDNUM O7553 922CH PUR INNUM 
A°55H G1E3H PUB INCHAR 9755H B1CS8E PUB PREEMPT 
O755H @1ASH PUBS OUTDNUM Q755H @185E PUB OUTNUM 
O755H 91643 PUB OUTLINE 97558 O141E PUB OUTCHAR 
A755H @0T4H PUB CREATEPSCC O755H @GCB8H PUB AZAD 
9755H @G9CH PUB TICKET B7E5uU OO79H PUB CEERATTSEO 
@755H @O56€H PUB CREATEEVC 87558 O033H 2UB ADVANCE 
O755H @ACEH PUB “AWAIT 
MEMORY MAP OF MODULE INITMODULZ 
READ FROM FILE 203. LNK 
WRITTEN TO FILE :F2:?G3 
STGMENT MAP 
START STOP LENGTH ALIGN NAME CLASS 
@280@H 28328 2231R Ww  INITMODULE COD CODE 
O7090H 27 OFTHE 100K w STACK STACK 
A720GH  e?2COR @2C3H W- PROC4MODULE CO COD 

-DF 
O72C4H «87204 OOOOH Ww  INITMODULE DAT DATA 

LA 
O72C4H O72CDH QOOAH W  GATEMOD DATA DATA 
O75@GH @7547H O047H W  PROC4MODULE DA DATA 

-T; 
O7550H 877908 Q247 WwW  GATEMOD CODE CODE 
RO7OGH  20745H G046H A ‘ABSOLUT2) 
EO746H  EC?746H COOTH WwW MEMORY MEMORY 
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